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Photo de couverture : 
Le PCW fait un check-up complet 
et le scanner du centre 
hospitalier Robert Ballanger 
d’Aulnay sous bois va révéler 
qu'il est en pleine forme ! 
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MASTERFILE 8000 





Le gestionnaire de fichiers le plus attendu sur PCW ! 


ATTENTION, MASTERFILE 8000 n'est pas un programme BASIC compilé rapidement adapté du 
CPC au PCW ! C'est un produit entièrement nouveau, qui bien qu'il ait gardé le meil- 
leur des caractéristiques de la version CPC, a été créé spécialement pour le PCW. 

Les autres produits disponibles offrent un choix entre des fichiers en RAM rapides 
mais de capacité limitée, et des fichiers en accès direct sur disquettes, de grande 
capacité mais encombrants car de longueur fixe. MASTERFILE 8000 et le disque RAM du 
PCW travaillent ensemble pour vous proposer: grande capacité et accès rapide à des 
données de longueur variable. La longueur de vos fichiers n'est limitée que par la 
taille de votre disque M. L' abscence d' accès disquettes en cours de travail repré- 
sente un gain de temps et une économie d'usure appréciables. 


MASTERFILE traditionnellement champion de sa catégorie en ce qui concerne la créa- 
tion de masques de saisie et de présentation des données s'est surpassé. Tous les 
questionnaires et menus ont disparu, vous créez "en temps réel" à l'écran vos mas- 
ques, comme dans un programme de dessin. La mise à jour d'enregistrements est 
directe grâce à l'éditeur "pleine page" du programme qui permet les modifications et 
corrections de rubriques directement sur le masque. 


Des options uniques permettent de gérer les dates en clair ( 17 janvier 1987 au lieu 
de 870117 par ex. ), de placer M. Mme, Melle, etc. devant les noms tout en gardant 
la possibilité de trier ceux-ci. 

Tout 1' affichage écran est GRAPHIQUE et les effets - lignes, boîtes - sont dessinés 
avec précision, les interlignes se choisissent en pixels - vous serez étonné de la 
clarté des lignes de 9 pixels. Tout ceci plus rapidement que CP/M ne le permet nor- 


malement. Les options de l'imprimante PCW sont toutes accessibles par menu. 


Les fichiers indexés sont automatiquement classés en séquence et ne devront jamais 
être triés. Vous pourrez aussi créer des fichiers non indexés, dans lesquels vous 
pourrez insérer des données où vous le voudrez. Il est possible de créer de fichiers 
"relationnels" ayant jusqu'à 8 niveaux. Vous pourrez importer/fusionner tout fichier 
ASCII (par ex. de MASTERFILE III) ou exporter des données par exemple vers un 
traitement de textes comme TASWORD 8000. La fusion de fichiers est aussi possible; 
pour les fichiers indexés, il s'agit d'un véritable "merge" et non pas d'un ajout. 
Cette fonction permet la copie de fichiers en modifiant l'ordre des clés. De 
nouvelles rubriques peuvent être créées en tout temps. 


La recherche des fichiers combine flexibilité et rapidité et comprend toutes les 
options de tri habituelles: alphabétique, numérique, croissant/décroissant, 
logiques, par dates etc... Il vous est même possible d' assigner dans des cases (4 
au maximum ), pendant le tri, des sous-ensembles de données pour référence ou 
traitement ultérieur. Le plus souvent MASTERFILE 8000 vous attendra, pas le 
contraire. 


MASTERFILE 8000 est entièrement dirigé par menus, 100% en code machine, il est livré 
avec une bibliothèque d'exemples directement utilisables et un manuel didactique 
détaillé. Aucun autre SGBD (Système de Gestion de Bases de Données - un grand mot 
pour décrire un "carton à chaussures plein de fiches"...) sur PCW n'offre une telle 
puissance, flexibilité et convivialité. 


MASTERFILE 8000 est offert aux lecteurs de l'ECHO du PCW au prix spécial de 
lancement de 450 FF HT (offre valable jusqu'au 30 mars 1987). 


Bon de commande ----------- à renvoyer chez Sémaphore, C.P. 32 - CH 1283 La Plaine (Suisse). 
Un eu M nr Gb danaee 2e D PHONE Age dun not Commandez par téléphone 
AUPÉBSO 7 Arai uen dec A Nantes adieu ta alle lee au 19 41 22 5411 95 
Code postal . . . . .. A CR RE ER Lundi à vendredi 


Envoyez-moi au plus vite: (offre valable jusqu'au 30.03.87) 
. . . Disquette/s MASTERFILE 8000 à . 450FF HT 





.) 
. . . Disquette/s TASWORD 8000 à . 380FF HT | 
. . Disquette/s DISCMATE 8000 à . 199FF HT ...) 
. . Disquette/s TASPRINT 8000 à . 195FF HT ] 
. Port en recommandé . . . . . . . . . ... 20 Fe ] TOTAL 


Envoyez-moi ma commande en contre-remboursement | ajouter 25FF pour les frais |. Je vous règle cette commande par 
Mandat postal International Fe Virement bancaire. Je vous autorise à débiter ma carte BLEUE VISA / EUROCARD dont 
len. est ... Le nas + POUR a ls 
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LOGICYS 
SE DECHAINE... 


Pour permettre un démarrage 
réussi dans l’utilisation d’un pro- 
gramme comptable. LOGICYS 
vient d’éditer un fascicule d’ini- 
tiation à la comptabilité à un 
prix défiant toute concurrence, 
soit 49 F HT. 

Sur sa lancée, il propose une 
nouvelle version de TALOS 
pour la réalisation de vos devis. 
Complètement repensé, TALOS 
doit permettre une meilleure ges- 
tion financière en donnant à 
l’entreprise des informations très 
précises sur les coûts et les mar- 
ges réalisées. 





NOUVEAUTES 


ET QUE CE SAUTE ! 


Donner du ressort à votre PCW avec BOUNDER. Ce jeu consiste à diriger 
une balle de tennis à partir du clavier ou de votre joystick habituel. Sur un 
terrain en plein mouvance, il vous faudra éviter des obstacles aussi divers 
que surprenants. Cases piégées, oiseaux oisifs et dalles surprises constituent 
les ingrédients d’un cocktail détonant. 

Conciliateur familial par excellence, BOUNDER distraira parents et enfants 
par sa simplicité d'emploi et la qualité du graphisme allié à une animation 
très réussie. Malgré sa voca- 
tion ludique, BOUNDER 
demande un sens de l’évalua- 
tion du mouvement et de 
l'attraction qui donne à ce jeu 
un aspect très pédagogique. 
C’est donc un jeu qui n’a 
d’autre prétention que de vous 
faire passer un bon moment 
qui ne faudra pas trop prolon- 
ger au risque d’entamer les 
nerfs les plus solides (on vous 
aura prévenu...) . 


BOUNDER de GREMLIN 
chez D.D.I. 
(1) 48 67 28 44 


RE OR 
Ÿ 
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Enfin, le plus ultra de l’édition des bilans et compte de résultats, le module CERFA en permet l’impression sur 
imprimés CERFA de la liasse fiscale. 


TALOS et MODULE CERFA de LOGICYS 56 40 94 75 





DES GRAPHES ? 


Cain d'oeuvre 


[s 
» 


Sachant que tout bon logiciel de 
gestion est capable de créer des 
fichiers ASCII, Micro Applica- 
tion a eu l’excellente idée de pro- 


Chain d'oeuvre 


TES 
rails divers 


De Qc } A D 20 à 
ta A me L à Ras poser un logiciel de représenta- 
‘| ÉA | m2 tion graphique capable de les 
FE exploiter. Ainsi 7 types de gra- 
n phismes sont permis : Histo- 
HE NN grammes 2 et 3 dimensions, gra- 
phes à lignes et camemberts en 
sont les principaux. Une option 
trames redéfinissables permet, 
en outre, de redéfinir n’importe 
laquelle des 32 trames déjà dis- 
ponibles. L’organisation de 
l’écran par l’utilisation de fenê- 
tres de tailles variables indépen- 
dantes les unes des autres, 
accroît encore les performances du logiciel en permettant la représentation de 1 à 4 graphismes distincts pouvant 
être supprimés, remplacés, etc. 

PCWGRAPH est globalement d’un très bon rapport qualité/prix et son ouverture vers DBASE et MULTIPLAN 
devrait séduire de nombreux utilisateurs. 


PCW GRAPH de MICRO APPLICATION, 13 Rue Ste Cécile 75009 PARIS 








CCC C’EST COBOL ! 


Deux langages de haut niveau sont enfin disponibles sur PCW, livrés en version originale (anglais), il s’agit, dans 
les deux cas, de compilateurs. Donc COBOL et langage C, accompagnés de manuels très consistants, viennent 
enrichir une bibliothèque sans cesse grossissante. 


COBOL et LANGAGE C, chez D.D.I. (1) 48 67 28 44 
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LE CLUB ECHO ? 
CA MARCHE !!! 


CCR 
Expansion : Tel est le mot qui caractérise le plus votre Club 
au mois de Janvier. En effet, non seulement le nombre des 
adhérents suit une progression exponentielle, mais de plus 
les services offerts évoluent quantitativement et 
qualitativement. 
Les adhérents du Club sont satisfaits et nous le font savoir 
car ils bénéficient déjà de nombreux avantages tels que : 
1 - La carte du Club qui leur permet de profiter de remises 
chez les revendeurs « Point Club ». Ces remises varient de 
5 à 15% selon les produits et selon les revendeurs. 
2 - Le logiciel SCRIVENER qui leur permet d'effectuer des 
calculs, des tableaux de chiffres (budgets par exemple), des 
mailings, etc. tout en utilisant pour la conception de leur 
saisie leur traitement de texte LOCOSCRIPT. 
3 - Un cadeau surprise offert par la société D.D.I. aux 
membres du Club qui rendra un grand service aux 
possesseurs de logiciels. 
4 - Le bulletin de liaison dans 
lequel les membres du Club ont 
l'occasion de transmettre des 
programmes de leurs trucs et 
astuces pour l'utilisation du 
CP/M ou du Basic. Ce bulletin 
leur permet d'être informé sur 
tout ce qui concerne le PCW, 
soit : nouveautés, opérations 
commerciales, activités, etc. 


5 - Les conditions préférentiel- 
les pour les stages dont les 
sujets restent à déterminer par 
les membres du Club de l'Echo 
du PCW et par les lecteurs de 
l'Echo. 


6 - L'utilisation d'une boîte aux lettres personnelle sur le 
Centre Serveur du Club de l’'Echo du PCW : les membres 
peuvent lire leurs messages dans leur boîte aux lettres en 
utilisant leur code personnel confidentiel (la mnémonique 
BAL vous permet d'accéder directement au menu des boîtes 
aux lettres). 


7 - Des remises proposées sur certains produits par le Club 
(produits qui n'ont pas obligatoirement un lien avec le PCW). 


8 - Une assistance technique personnalisée par 
l'intermédiaire du minitel. Les membres posent leurs 
questions sur la BAL ECHO et le club leur répond sur leur 
BAL personnelle. 


Mais de plus, le Club crée ses antennes locales !!!. 


En effet, des membres du Club et des non-membres 
souhaitent créer des antennes locales afin que nos nombreux 
correspondants de province puissent directement bénéficier 
des avantages du Club. 


NOM EINSTEIN 
31/02/88 


RESERVATION POUR LE SAMEDI 7 MARS 1987 


Dernière limite de réservation : 2 Mars 


Nom : Prénom : 


Adresse : 


Je réserve pour la soirée du Samedi 7 Mars 1987 pour 
pour 
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Pour répondre à leur attente, le Club a décidé une 
décentralisation de ses fonctions afin d'aboutir au meilleur 
service possible. L'affiliation d'une antenne locale au Club 
du PCW donne droit aux éléments suivants : 


1 - L'ensemble des avantages accordés aux membres des 
antennes du Club de l'Echo du PCW sont conservés, 
c'est-à-dire : 

a) Le logiciel SCRIVENER. 

b) Le bulletin du Club. 

c) Les remises auprès des revendeurs « POINT CLUB ». 

d) La participation à des stages à des conditions 
préférentielles. 
L'accès à une boîte aux lettres personnelle sur le Centre 
Serveur de l'antenne. 
f) Les remises offertes par le Club sur certains produits. 
g) La carte du Club. 


2 - L'antenne bénéficiera d'un Centre Serveur à des condi- 
tions financières et techniques exceptionnelles. 

3 - L'antenne percevra les cotisations aux conditions habi- 
tuelles et reversera un droit d'entrée au Club pour chaque 
membre qui s'inscrit auprès d'elle. Ce droit est fixe et per- 
met à tout nouvel inscrit de bénéficier des avantages club. 
L'antenne reste totalement libre quant au montant de sa 
cotisation. 


e) 


4 - L'adresse et le numéro du 
serveur de l'antenne feront 
l'objet d'une publication régu- 
lière dans la revue « L'Echo du 
PCW » ainsi que sur le Centre 
Serveur du Club. 

De même, les activités régiona- 
les de chaque antenne auront 
droit de cité dans l’Echo du 
PCW. Ceci permettra aux diffé- 
rentes antennes de se faire 
mieux connaître et ce, à un coût 
défiant toute concurrence. 


L'affiliation, et les avantages qui 


1964785 
en découlent, est accordée une 


| 
semaine après dépôt de la 


demande et le Club Echo se réserve le droit de refuser 
l'affiliation sans avoir à en justifier. 


A noter que les Antennes devront être impérativement créées 
sous la forme d'une association à buts non lucratifs (loi de 
1901) et leurs statuts devront nous être remis lors de la 
demande d'affiliation. 


Nous vous précisons que les exigences liées à la création 
d'antenne servent à garantir les utilisateurs provinciaux 
contre tout groupement plus ou moins fantaisiste. 


Pour tout renseignement complémentaire ou pour recevoir 
le texte d'accord, vous devez en faire une demande écrite 
à notre adresse habituelle. 


Enfin DERNIERE MINUTE le Club de l’'Echo du PCW organise 
un grand dîner le SAMEDI 7 MARS durant lequel vous pourrez 
rencontrer les heureux utilisateurs du PCW et la sympathique 
équipe de votre journal préféré. Si vous souhaitez participer 
à cette réunion, retournez le bon, ci-dessous, que vous pouvez 
éventuellement recopier. 

Patrick HUBER (Responsable CLUB ECHO DU PCW) 


PRENOM ALBERT 


EN 
JR 


: 100 francs 
Tarif non-membre Club : 150 francs 
N° Club : 


Tarif membres Club 


Fait à 


personnes à 100 F 


personnes à 150 F * Signature 


5 ° CLUB 


Initiation à DBASE II 
4e partie 


LA GENERATION 
D’ETATS IMPRIMES 


Il peut s'avérer nécessaire d'imprimer des états 
récapitulatifs sur des données contenues dans nos 
fichiers ou bien plus simplement de les présenter à 
l'écran de manière agréable. Pour ce faire , il existe 
la possibilité d'automatiser un format de présentation, 
lequel permettra une impression ou un affichage 
correct, hors du standard par défaut. 


Nous allons utiliser pour cela la commande REPORT 
FORM (ne pas confondre avec FROM), en supposant 
avoir chargé en mémoire le fichier qui nous sert 
d'exemple depuis plusieurs mois, CLIENTS, avec : 


USE CLIENTS 


Cette commande, REPORT FORM, sert à créer le 
canevas, le modèle, du document, en fait un fichier 
qui va présenter des données issues d'un fichier. Par 
exemple, nous désirons créer un tel canevas pour notre 
fichier CLIENTS utilisé lors des numéros précédents. 
Il faut donner un nom à notre canevas, appelons le 
RAPPORT, et le créer ainsi : 


REPORT FORM RAPPORT 


et aussitôt s'affiche : 
OPTIONS M = MARGE GAUCHE, L=LIGNES/PAGE, W=LARGEUR DE PAGE 


Que s'est-il passé ? En usant de la commande 
REPORT, DBASE est allé vérifier si ce fichier n’est déjà 
pas présent sur le disque, auquel cas il le charge ; en 
cas contraire, il le crée et pose à l'utilisateur une série 
de questions permettant justement de créer le format. 


Nous allons donc ici entrer des valeurs indiquées en 
clair et en abrégé. Supposons vouloir la marge à 
gauche à la cinquième colonne, le nombre de lignes 
(par défaut 66) égal à 20 et la largeur de la page 80, 
nous entrerons : 


M =5 
L =20 
W =80 


Après avoir validé avec RETURN, une seconde 
question apparaît : 


DESIREZ-VOUS UN EN-TETE (Y/N) ? 
Cette question sert à préciser si un en-tête, c'est-à- 
dire un titre par exemple doit être affiché en début de 


page. Répondons OUI, soit Y et le système demande 
alors : 
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DONNEZ L'EN-TETE : 


On entre alors le titre adéquat, par exemple : 
LISTING DES CLIENTS 


Après validation, une nouvelle question : 
DESIREZ-VOUS UN DOUBLE INTERLIGNE (Y/N) 


Ce qui permet d'avoir des lignes bien séparées ; 
contentons-nous du format habituel et entrons N. 


Nouvelle question : 
DESIREZ-VOUS DES TOTAUX ? 


Nous pouvons effectivement désirer un total sur la 
colonne dite COMPTE dans notre fichier. Nous allons 
entrer Y. Du coup, le système demande : 


DESIREZ-VOUS DES SOUS-TOTAUX DANS VOTRE RAPPORT ? (Y/N) 


entrons ici N, nous verrons plus tard l'intérêt de cette 
commande. 


Ensuite, le système va poser une série de questions 
sur les colonnes éventuelles que nous voulons créer 
pour notre rapport. Nous avons dans notre fichier 
plusieurs champs nommés NOM, ADRESSE, CODE, 
VILLE et COMPTE. Ces champs représentent donc 
cinq colonnes qu'il convient donc de formater au mieux 
pour l'affichage. Nous pouvons par exemple réserver 
une longueur (en caractères) de 15 pour le NOM, 20 
pour l’ADRESSE, 5 pour le CODE, 15 pour la VILLE 
et 10 pour le COMPTE. 


Ainsi, comme DBASE nous demande : 
COLONNE LONGUEUR, CONTENU 
001 


il s'enquiert de la longueur du premier champ et le nom 
que nous désirons lui donner. Comme nous sommes 
restés simples, nous dirons ici : 


COLONNE LONGUEUR, CONTENU 
001 15, NOM 


pour NOM ; aussitôt, DBASE demande : 
DONNEZ LE TITRE : 

et nous entrons : 

NOM DU CLIENT 


ce qui fait que la première colonne correspondant au 
premier champ de notre fichier est formatée et 
baptisée. Il faut donc faire de même pour les autres 
colonnes : 


Question suivante : 
002 


DBASEII : 4e EPISODE 


on continue sur la même ligne que le numéro de la 
colonne qui s'inscrit : 


002 20, ADRESSE 
DONNEZ LE TITRE 
ADRESSE DU CLIENT 


puis : 

003 

003 5,CODE 
DONNEZ LE TITRE 
C.POS 


puis : 

004 

004  15,VILLE 
DONNEZ LE TITRE 
VILLE DU CLIENT 


puis : 

005 

005 10,COMPTE 
DONNEZ LE TITRE 
COMPTE 


lci, la colonne étant faite de nombres, DBASE demande 
si nous voulons des totaux sur cette colonne. Entrons 
Y: 


Ensuite, un sixième champ se présente, mais il n’y a 
plus de champs à afficher ; nous entrons RETURN. 
Aussitôt, le fichier REPORT se sauvegarde sur le disque 
et l'écran affiche : 


PAGE N° 00001 
LISTING DES CLIENTS 


NOM DU CLIENT ADRESSE CODE C.POS COMPTE 
Bihan 12 allée des prunes 08200 Sedan 12000,00 
Dupont 1 rue des oranges 08000 Charleville 12450,00 
Parazé 3 rue du baron 08000 Charleville  1232,34 
Calin 4 tour diamant 08200 Sedan 12,56 
Bihan 5 rue des lilas 08200 Sedan 300,00 
Bihan 45 allée des poires 75000 Paris 0,00 
Dupont 23 bd des pommiers 75006 Paris 45,60 
Parazé 44 rue des cerises 08200 Sedan 222,55 
**TOTAL** 26265,05 


Pourquoi le fichier s'est affiché ainsi ? Parce que nous 
l'avions précisé au début de ce chapitre avec USE 
CLIENTS ; dans le cas contraire, DBASE nous aurait 
demandé d'entrer le nom de la base. 


On note que le total du champ COMPTE est affiché 


fort normalement. Par ailleurs, un numéro de page est 
automatiquement affecté. 
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Pour obtenir l'affichage des données sur imprimante, 
on indique à DBASE : 


USE CLIENTS 
SET PRINT ON 
REPORT FORM RAPPORT 


Pour désactiver l'imprimante, on se sert de : 
SET PRINT OFF 


Nous aurions pu, par ailleurs, user de la commande : 
REPORT FORM RAPPORT TO PRINT 


pour imprimer, ce qui est tout à fait identique à SET 
PRINT ON. 


On remarquera, à l'usage, qu'un saut de page initial 
est fait par l'imprimante. Pour l'éviter, la commande 
suivante s'impose : 


SET EJECT OFF 
que l'on réactive avec : 
SET EJECT ON 


Notre état peut évidemment s'étaler sur plusieurs 
pages ; elles seront automatiquement numérotées 
comme il convient. 


DBASE permet la génération d'états sur tout ou partie 
de la base de données. Par exemple, pour n'obtenir 
qu'un état sélectif, sur le nom « Bihan », par exemple 
(bel. exemple !), nous ferons : 


REPORT FORM RAPPORT FOR! (NOM) = 
« BIHAN » 
et nous obtiendrons : 
PAGE N° 00001 

LISTING DES CLIENTS 
NOM DU CLIENT ADRESSE CODE CPOS COMPTE 
Bihan 12 allée des prunes 08200 Sedan 12000,00 
Bihan 5 rue des lilas 08200 Sedan 300,00 
Bihan 45 allée des poires 75000 Paris 0,00 
**TOTAL** 12.300,00 


DBASEII : 4e EPISODE 


Il est possible, dans le but d'agrémenter l'état de la 
présentation, de soulignér certaines valeurs. Pour cela, 
on se servira du point-virgule, « ; », et du trait adéquat 
de la manière suivante. Lors de la création de l'état 
avec la commande REPORT, le système demande 
d'entrer le titre de la colonne en cours, si nous désirons 
voir ce titre souligné, nous entrerons : 


DONNEZ LE TITRE : NOM DU CLIENT ; ------------ 


On note que ce trait est obtenu avec le caractère 
souligné « - », pour souligner avec « ---------------- », 
il faut préciser : 


DONNEZ LE TITRE : NOM DU CLIENT ; ------------ 


On note également que le soulignement étant à lui seul 
une ligne, on peut souligner avec n'importe quel 
caractère, le dollar par exemple, pour faire riche : 


DONNEZ LE TITRE : NOM DU CLIENT ; $$$$$$S$S$$$S$SS 


Ce qui fait très joli à l'écran : 


NOM DU CLIENT 
SSSSSSSSSSSS 


n'est-il pas ? 


On voit que le signe « ; » permet de passer à la ligne 
et d'écrire sur la même colonne. On peut en déduire 
qu'il est possible d'écrire un texte dans une même 
colonne mais sur plusieurs lignes. Ainsi, à la question : 


DONNEZ LE TITRE, nous répondons, par exemple : 
ADRESSE ; DU CLIENT 
et nous obtiendrons sur l'écran : 


ADRESSE 
DU CLIENT 


On peut cependant lire l'état de façon différente, par 
exemple trié sur un champ. Nous savons déjà 
comment trier ou indexer une base de données. Dans 
le cas présent, nous ferons de même. Ainsi, en 
supposant vouloir lire le fichier dans l'ordre 
alphabétique des noms mais dans un état récapitulatif, 
nous indexerons en premier lieu le fichier puis nous 
rappellerons le fichier RAPPORT pour l'afficher : 


INDEX ON NOM TO NCLIENTS 


Le fichier est indexé sur le champ NOM dans l'index 
NCLIENTS, 


USE CLIENTS INDEX NCLIENTS 

On appelle le fichier CLIENTS en précisant que l'on 
va utiliser l'index NCLIENTS, 

REPORT FORM RAPPORT 


On demande l'état récapitulatif du fichier indexé sur 
le champ NOM : 
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PAGE N° 00001 
LISTING DES CLIENTS 


NOM DU CLIENT ADRESSE CODE CPOS COMPTE 
Bihan 12 allée des prunes 08200 Sedan 12000,00 
Bihan 5 rue des lilas 08200 Sedan 300,00 
Bihan 45 allée des poires 75000 Paris 0,00 
Calin 4 tour diamant 08200 Sedan 12,56 
Dupont 1 rue des oranges 08000 Charleville 12450,00 
Dupont 23 bd des pommiers 75006 Paris 45,60 
Parazé 3 rue du baron 08000 Charleville  1232,34 
Parazé 44 rue des cerises 08200 Sedan 222,55 
**TOTAL** 26265,05 


MARQUAGE DE LA DATE 


On sait que DBASE nous demande de l’entrer dès le 
début de la session. Si on l'oublie, on peut toujours 
le faire : 


SET DATE TO 12/1/87 


par exemple, et cette nouvelle date apparaîtra dans 
le rapport. 


CREATION D’ UN EN-TETE 


On peut ajouter un en-tête général coiffant le rapport. 
Par exemple, on désire donner un titre à un état de 
nom «ETAT RECAPITULATIF DE COMPTES 
CLIENTS ». || nous suffit de préciser : 


SET HEADING TO ‘’ETAT RECAPITULATIF DE COMPTES CLIENTS" 
et nous obtenons : 


PAGE N° 00001 ‘’ETAT RECAPITULATIF DE COMPTES CLIENTS" 
12/1/87 


LISTING DES CLIENTS 


LE SOUS-TOTAL 


Ilest particulièrement utile de pouvoir obtenir des sous- 
totaux dans un état, lesquels se calculent selon des 
critères précis. Par exemple, on désire les sous-totaux 
sélectionnés par ville. Pour cela, il faut valider ainsi les 
questions lors de la création du rapport : 


On crée un autre modèle que RAPPORT, appelons-le 
RAPPORT1, et on définit les divers formats comme 
RAPPORT, puis on répond ainsi aux questions 
suivantes : 


DESIREZ-VOUS DES TOTAUX ? (Y/N) 
on entre ŸY, 
DESIREZ-VOUS DES SOUS-TOTAUX DANS VOTRE RAPPORT?(Y/N) 


DBASEII : 4e EPISODE 


on entre Y, 
DONNEZ LE CHAMP DU SOUS-TOTAL : 


ici, on entre le champ qui sert de critère. Comme on 
demande les sous-totaux par ville on se servira du 
champ CODE : on entre donc à la question CODE, 


DESIREZ-VOUS UNIQUEMENT UN RESUME DU RAPPORT (Y/N) 
on entre N; cette question permet de savoir si on désire 
afficher uniquement le résultat de chaque département 
(Y), ou bien le détail par département (N), 
CHANGEMENT DE PAGE APRES LES SOUS-TOTAUX (Y/N) ? 


on entre N 


ENTREZ LE TITRE POUR LES SOUS-TOTAUX : 


restons simples et entrons : SOUS-TOTAL. Puis le 
système continue ensuite comme précédemment sur 
les colonnes, leur longueur et contenu : 


COLONNE LONGUEUR,CONTENU 
etc. 


Puis, avant de lancer l'exécution du nouveau rapport, 
on indexe sur le champ CODE le fichier : 


INDEX ON CODE TO INDCODE 
USE CLIENTS INDEX INDCODE 
REPORT FORM RAPPORT1 


et nous obtenons le rapport suivant : 





PAGE N° 00001 
01/01/80 


LISTING DES CLIENTS 


NOM DU CLIENT ADRESSE 


*SOUS-TOTAL 08000 


Dupont 1 rue des oranges 
Parazé 3 rue du baron 
**SOUS-TOTAL* * 
13684,34 
* SOUS-TOTAL 08200 
Bihan 12 allée des prunes 
Bihan 5 rue des lilas 
Calin 4 tour diamant 
Parazé 44 rue des cerises 
**SOUS-TOTAL* * 
12535,11 
*SOUS-TOTAL 75000 
Bihan 45 allée des poires 
**SOUS-TOTAL * * 
0 
*SOUS-TOTAL 75006 
Dupont 23 bd des pommiers 
**SOUS-TOTAL* * 
45,60 
**TOTAL** 
26.265,05 


CODE C.POS COMPTE 
08000 Charleville 12450,00 
08000 Charleville 1232,34 
08200 Sedan 12000,00 
08200 Sedan 300,00 
08200 Sedan 12,56 
08200 Sedan 222,55 
75000 Paris 0,00 
75006 Paris 45,60 





lci, les données sont bien triées sur le champ CODE avec un sous-total à chaque fois. 


Et voilà pour ce mois-ci, chers Dbasemen and Women ; à la prochaine fois ! 
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PATRICE BIHAN 


DBASEII : 4e EPISODE 


LE SOFT DU MOIS : SPOOL 


Oui 75 minutes rondes, franches et massives pendant lesquelles je n'ai rien pu obtenir d'autre de mon PCW que le 
listage d'un texte de 152 Ko. Si comme moi, vous supportez difficilement d'être réduit à un état de contemplation béate 
devant le grésillement soporifique du périphérique scribouilleur, vous risquez d'être plus que séduit, je dirais même 
envouté par SPOOL qui pour la même tâche s’est contenté de seulement 8 minutes ! 


Le rapport est de taille et je vous laisse le soin d'imaginer le nombre d’heures d'édition ainsi sauvées en quelque mois. 


SPOOL - PRINCIPE : Présents constamment dans l’ordina teur, SPOOL 
est dit résident. La place qu'il occupe est excep- 

tionnellement faible (2,25 Ko) qu'il 
prend sur la TPA ou mémoire utili- 
ateur. SPOOL est un programme 
CP/M totalement inefficace avec 
Locoscript qui a d'ailleurs le sien 
(nous en reparlerons plus loin). 


Voyons maintenant comment 
SPOOL s'y prend. Une fois 
installé, il cré immédiatement 
un fichier SPOOLER.$$$ en 
lecteur M: (ou Mémoire M:). 
Cela implique que M: aitun 
minimum de 16 Ko de 
libre. Ensuite, on oublie 
SPOOL qui se met en 
action dès que l'impri- 
ante est sollicitée. En 
effectuant de nom- 
breux aller-retour to- 
talement impercep- 
tibles, il remplit le 
fichier M: qui de- 
vient pour la cir- 
constance le nou- 
veau tampon 
d'imprimante. Ainsi, 
le fichier tampon engloutit 
tout ce qui est destiné à l’impriman- 
te et ce à concurrence de la place dis- 
ponible en M: ou de la taille du fichier à impri- 
mer qui peut être plus petit que la place libre en M: 


Vous comprenez aisément, l'intérêt d’avoir un lec- 


Le tampon est donc au service de notre souci teur M: d'une capacité de 368 Ko dans ce cas bien 
d'économie, mais il est largement insuffisant dès précis. 


que les fichiers à imprimer dépassent deux ou trois : sr ee : 
kilo octets. Le résultat est évident, le tampon est Notre fichier SPOOLER, $$$ étant plein, l'imprimante 
lancée, SPOOL revient au programme en cours dont 


plein et ne se remplit que lorsque l’imprimante l’a : RSR 
: : i ne s’en échappe qu’épisodiquement pour aller met- 
t t À l j j : 
un temps soit peu vidé. La boucle est bouclée, le te de l'ordre pe ee de 


tampon est inutile car il suit imperturbablement le 


SPOOL est ce que l’on appelle dans le jargon 
informatique, un spooler d'imprimante. La 
traduction littérale du terme, bobine, 
étant trop imprécise, tout le 
monde s'accorde à garder 

le terme original. 
Le principe du 
spooler est simple : 
L'imprimante tra- 
vaille à un rythme 
qui est le sien et qui 
est bien plus lent que 
la vitesse de traitement 
de l'ordinateur. Pour 
palier à ce problème, les 
imprimantes ont, généra- 
lement, un tampon (ou buf- 
fer) qui, constitué de 
mémoire vive, permet un 
stockage provisoire d'une 
quantité plus importante de 
texte que l'imprimante ne peut 
réellement imprimer d’un coup. 
Ce tampon est variable d'une 
imprimante à l’autre et celui du 
PCW est d'environ un Kilo octet. 
Ceci explique pourquoi, lors d’une 
impression, l'ordinateur nous redon- 
ne les commandes quelques dizaines 
de secondes avant d’avoir effective- 
ment terminé l'impression. 


































rythme lent et monotone des sanglots de qui vous Le temps nécessaire à SPOOL pour s'occuper de 
savez. tout est pratiquement nul, ce qui n’est pas le cas 
du spooler de LOCOSCRIPT qui ralentit terrible- 
Vous sentez immédiatement qu’une solution ment la saisie pendant l'impression. Avec SPOOL 
s'impose et que le spooler a probablement un lien rien d’anormal dans l’utilisation du programme. 
étroit avec celle-ci. L'impression quant à elle, suit le même débit avec 
ou sans SPOOL. Testé sur un texte de 32 Ko, le temps 
Bien joué, c'est exactement, le cas. SPOOL n'est d'impression fut rigoureusement similaire (7°23° 
pas un simple tampon d'impression mais un coor- pour être précis). 
dinateur intelligent du temps imparti qui utilise Le résultat de l’ensemble des tests résumés en 
habilement les ressources du PCW pour renvoyer annexe donne un aperçu éloquent des prestations 
dans les albums souvenirs les délais prohibitifs ! de SPOOL. 
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SPOOL - DIVERS 


Complément de SPOOL, le programme TUSPOOL se 
charge de deux missions. Un, il désactive SPOOL en ren- 
dant à la mémoire utilisateur (TPA) sa virginité initiale et 
deux, il offre une option de vidange du SPOOLER pour 
laisser ou interrompre l'impression en cours. 


Pour les inconditionnels de DBASE, je signale que 
SPOOL est idéal. Testé sur l'édition d’un fichier de 372 
Ko, il s’est comporté admirablement et plus rapidement 
encore par la désactivation de l’écran par SET CONSOLE 
OFF en début de commande et réactivation par SET 
CONSOLE ON. Cette mesure sert à supprimer toute affi- 
chage à l'écran pendant que le SPOOLER se remplit. 


Avec WORDSTAR Pocker, le résultat est beaucoup plus 
spectaculaire car l'impression n'interrompt aucunement 
l'utilisation du programme en fragmentant l'impression 
mot par mot dans un hoquettement assez inhabituel. 
Enfin, pour un gros fichier ASCII, préférez l'envoi à 
l'imprimante par l'instruction PIP LST :=NOM DU 
FICHIER plutôt que par [ALT] [P] et TYPE NOM DU 





FICHIER. Ce choix est lié au délai qui, dans le cas de 
TYPE, est augmenté par l'affichage à l'écran du fichier 
ASCII à imprimer. 


En résumé, les compétence demandées par SPOOL sont 
inexistantes et dès lors que l'imprimante est utilisée, sa 
présence se justifie totalement. En fait SPOOL est pro- 
bablement un des meilleurs investissements de la vie des 
PCW ! 


MARC HERMION 


ANNEXES 


Les essais suivants ont été réalisés dans les mêmes conditions et les temps indiqués correspondent au délai 
entre le lancement de l’impression et le moment où nous récupérons la main pour faire autre chose. 


ESSAI 1 : FICHIER ASCII de 18 Ko Imprimé en condensé : 


INSTRUCTION : PIP LST:=DOCUMENT.ESS 


SANS SPOOL AVEC SPOOL ECART RAPPORT 
6’’45’ 106 5’’29° 1/6 
ESSAI 2 : FICHIER ASCII de 132 Ko Imprimé en corps 10 
SANS SPOOL AVEC SPOOL ECART RAPPORT 
lh 18”’33' 811’ 1h 10’’22° 1/9 
ESSAI 3 : LISTING BASIC DE BUSINESS (voir ECHO N°5) 
SANS SPOOL AVEC SPOOL ECART RAPPORT 
426’ 40’ 3’’44’ 1/5 
ESSAI 4 : TEMPS DE TRAITEMENT PENDANT L'IMPRESSION : 
Pour un programme basic faisant 50.000 boucles par FOR I=1 TO 50000:NEXT 
SANS IMPRESSION IMPRESSION SANS SPOOL AVEC SPOOL 
44 55’ 


Ce dernier permet de constater que le traitement est ralenti d'environ 10% par rapport à une impression 
normale. Pour comparer un test équivalent a été effectué sur Locoscript qui a son propre spooler : 


ESSAI 5 : ENVOYER LE CURSEUR A LA PAGE 3 (66 LIGNES PAR PAGE) 


SANS IMPRESSION 
26° 


AVEC IMPRESSION 


Vous pouvez vérifier que le spooler de Locoscript impose un ralentissement de l’ordre du double du temps 


normal. 
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SYINE AA : LA MISE EN PLACE 
D'UN SERVICE TELEMATIQUE SUR PCW 


1ere partie : L'ARBORESCENCE 


tnantdesidenrondedéeondesdosnespeehe te 


Le Pack logiciels 
SYNEA, grâce à 
ses qualités indé- 
niables axées sur 
la facilité d'utilisa- 
tion et l'éventail 
important d'appli- 
cations télémati- 
ques possibles, 
semble promis à 
un bel avenir sur 
notre machine 
chérie. Son prix 
exceptionnel rap- | 
porté à celui du GESTION LES COMMANDES 
PCW confère à ASSER EN MODE GE z 
l'ensemble PCW- EMEA EE ‘ | 
SYNEA le meilleur 
rapport perfor- 
mances/prix sur 
le créneau des 
serveurs téléma- 
tiques monovoies ; il devrait permettre à un grand 
nombre de professionnels d'entrer dans l’ère de la 
communication et d'offrir à leur clientèle ou à leurs par- 
tenaires commerciaux un service télématique de 
qualité. 


L CORPUSLLION D'ECRAN RINIIEL __} 
AREURESCENCE DES ECRAN5 
MNEMDNIQUES D'ECRANS 
BOITES AUX LETTRES 


JOURNAL CYCLERUE 


LECTEURS DISQUES 


Fin du progranne 


C'est pourquoi nous débutons à partir de ce numéro 
une série destinée à vous présenter les performances 
étonnantes de ce produit. Nous procéderons par 
étapes, en vous décrivant chaque mois les 
caractéristiques détaillées d’un module SYNEA 
nécessaire à la préparation d'un service télématique 
complet. 


Allumons l'ordinateur, insérons la disquette SYNEA 
dans le lecteur A : 


Le CP/M exécute l'instruction SETSIO, contenue dans 
le fichier PROFILE.SUB, destinée à configurer 
l'interface RS232 (réglages des vitesses de trans- 
mission/réception sur la ligne téléphonique). 


Le programme SYNEA est ensuite exécuté ; il nous 
demande tout d’abord quel est le lecteur destiné à 
mémoriser les fichiers de L'ARBORESCENCE, des 
MNEMONIQUES D'ECRANS et des BOITES AUX 
LETTRES. Disposant d’un PCW 8512 et une disquette 
neuve en B, nous indiquons B. Dans le cas du PCW 
8256 à un seul lecteur, nous aurions utilisé une 
disquette insérée en A. Le sommaire général de SYNEA 
est ensuite affiché ; il nous propose un ensemble 
d'options permettant de préparer le service 
télématique : 


Nous débutons notre série par la mise en place de 
l'ARBORESCENCE des pages d'informations du 
service télématique. 


Rappelons tout d’abord le principe de fonctionnement 
d'une consultation d’un minitel connecté au 
PCW-serveur : 





Le PCW analyse chacun des choix formulés par le 
minitel et transmet, via la ligne téléphonique, la page 
d'information appropriée : chaque page destinée à être 
affichée sur l'écran du minitel est constituée de codes 
(nombres) mémorisés dans un fichier situé sur une 
disquette du PCW. 


A chaque page-écran minitel correspond un fichier 
PCW. Le premier fichier transmis à la connexion du 
minitel a pour nom RACINE.SOM (c'est une 
convention du logiciel). Cette première page constitue 
le sommaire général du service et propose des choix 
pour l'obtention d’autres pages sur le minitel ; chacune 
de ces pages peut contenir des informations utiles ou 
proposer plusieurs choix pour obtenir d’autres pages 
d'information etc... l'ensemble de tous ces écrans 
proposant des choix ou des informations contitue une 
ARBORESCENCE d'écrans, terme mathématique qui 
tient au fait que la description schématique de l'inter 
dépendance des fichiers-écrans ressemble à un arbre 
inversé, le premier écran tenant le « rôle » des racines 
de l'arbre, d'où son nom RACINE.SOM ( .SOM pour 
SOMmaire). 


Pour illustrer notre propos, nous prendrons pour 
exemple le service télématique de la société (factice) 
TYREL, fabricant d'appareils à relier et des fournitures 
associées. Le but recherché par cette société est de 
mettre en place : 

un système d'information pour la clientèle sur 
l'activité et les produits de l’entreprise ainsi que les 
tarifs actualisés. 

- un ensemble de boîtes aux lettres pour les salariés 
de l’entreprise. Toute personne pourra déposer un 
message à l'attention d’une personne de l’entreprise 
difficile à joindre (par exemple un représentant en 
déplacement). 

un système de prise de commande par minitel pour 
les clients référencés et pour les VRP en déplacement 
chez leurs clients. 


Le schéma d’arborescence suivant permet de répondre 
simplement à ces trois objectifs : 


Les noms en majuscules représentent les noms des 
écrans transmis par le serveur au minitel. Les noms 
entre-parenthèses correspondent aux choix à fournir 
par le minitel connecté pour passer d’un écran à 
l'autre. 





NOM DU FICHIER-ECRAN RÔLE 





RACINE.SOM sommaire général du service 

PRE.SOC écran de présentation sur l'activité de la société 
PRODUIT.SOM sommaire de présentation des produits fabriqués, 
PRODUIT.APP appareils à relier 

PRODUIT.RP reliures plastique, 

PRODUIT.CO1 couvertures (1°" écran) 

PRODUITS.CO2 couvertures (2° écran) 

MESSAGE.SOM écran d'accueil de la messagerie 


COMMANDE.SOM écran d'accueil de la prise de commande 
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L'option ARBORESCENCE D'ECRAN permet de décrire 
l'arborescence, ci-dessus, de la façon suivante : 


28/01/87 - ARBORESCENCE DES ECRANS - 
Écran source è 


j US HE | j 
k 


li 
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s 


:COL 


SEA 
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La liste de l'arborescence est constituée d'un 
ensemble de lignes des choix possibles du minitel 
connecté au PCW-serveur. Supposons que la page 
PRODUIT.SOM soit affichée sur l'écran du minitel 
connecté, si celui-ci transmet au PCW le choix 2, le 
PCW cherche alors si une ligne commençant par 
‘’PRODUIT.SOM 2’ fait partie de la liste de 
l'arborescence ; si oui, le PCW transmet l'écran 
destination dont le nom est en bout de ligne (celui-ci 
devient maintenant l'écran source) ; sinon, le PCW 
transmet le message ‘Réponse non valide’” et permet 
au minitel de proposer un autre choix. 


Les réponses débutant par le caractère dollar ($) dans 
la Liste de l'arborescence correspondent aux codes 
engendrés par les touches fonctions du minitel : 
SOMMAIRE, RETOUR, SUITE, REPETITION, GUIDE. 
Les deux touches CORRECTION et ANNULATION sont 
réservées, respectivement pour, la correction du 
dernier caractère saisi par le minitel et la reprise du 
choix depuis le début. 


Supposons que la page PRODUIT.CO2 soit affichée sur 
l'écran du minitel connecté ; si le minitel appuie sur 
la touche SUITE, le PCW lui transmet le message 
‘’Réponse non valide’’ ; par contre si le minitel appuie 
sur la touche RETOUR, le PCW lui transmet l'écran 
PRODUIT.CO1. 


Îlest important de noter que le choix prévu dans une 
arborescence dépend de l'écran en cours. Ainsi, 
formuler le choix 1 depuis l'écran RACINE.SOM aboutit 
à l'affichage de l'écran PRE.SOC ; le même choix 
formulé depuis l'écran PRODUIT.SOM permet 
d'obtenir l'écran PRODUIT.APP. 


Il n'ya pas de limitation logicielle au nombre de fichiers 
écrans du service et de niveaux de l'arborescence ; 
la seule limitation est celle de la place mémoire 
disponible sur la disquette. Un PCW 8256 à un seul 
lecteur peut ainsi gérer une cinquantaine d'écrans. 


Le logiciel SYNEA permet de simplifier 
considérablement la description de l'arborescence ; en 
effet, il prend en compte des règles d’enchaînement 
par défaut pour les choix correspondant aux touches 
SOMMAIRE et GUIDE. 


En effet, si le choix du minitel est l'appui sur 
SOMMAIRE et que ce choix n’est pas prévu dans la 






Liste de l'arborescence, le PCW transmettra l'écran de 
même nom que l'écran en cours et avec l'extension 
.SOM, s'il existe. Par exemple, en présence de l’écran 
PRODUIT.REL, l'appui sur SOMMAIRE permet 
d'obtenir PRODUIT.REL avec l'extension .SOM, c'est- 
à-dire PRODUIT.SOM. 


Si le fichier a déjà l'extension .SOM, c'est l'écran 
RACINE.SOM qui sera transmis. 


Les mêmes règles s'appliquent à la touche GUIDE ; 
dans ce cas l’extension est, GUI. 


En tenant compte de cette particularité, l'arborescence 
du service télématique de la société TYREL peut se 
résumer à la liste suivante : 


22/01/87 - ARBORESCENCE DES RCRANS - 


NON 
: Inpriner liste 


Il n’est pas nécessaire de décrire l’enchaînement des 
écrans postérieurs aux écrans MESSAGE.SOM et 
COMMANDE.DON:; en effet, quand l’un de ces écran 
est affiché, le logiciel serveur transmet en fonction du 
choix du minitel l'écran approprié : MESSAGE. ENR 
pour l'écriture d'un message dans une boîte, 
MESSAGE. LEC pour la lecture des messages d’une 
boîte aux lettres, MESSAGE.GUI pour la liste des 
boîtes aux lettres, COMMANDE.PRI pour la prise de 
commande (saisie des codes articles et quantités). 


Le logiciel SYNEA permet de gérer la liste de 
l'arborescence en offrant des possibilités de 
suppression de ligne choix d'ajout de nouvelles lignes 
et d'impression de la liste. 


La liste est affichée sur l'écran du PCW dans l’ordre 
alphabétique des écrans source et des choix autorisés 
du minitel. 


Comme vous avez pu le constater, la mise en place 
de l'arborescence est très simple ; de plus, le fichier 
de l'arborescence est indexé (donc «trié » 
automatiquement), ce qui aboutit à une analyse quasi 
immédiate des choix du minitel connecté. 


Ainsi s'achève la première partie de notre série sur la 
mise en place d’un serveur télématique sur PCW. Nous 
vous décrirons le mois prochain un autre moyen très 
puissant et complémentaire à l’arborescence pour 
préparer l’enchaînement des écrans, les 
MNEMONIQUES D'ECRANS. [| 
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LES PLUS DE SYNEA 


Ce qu'il faut savoir pour créer un serveur sur PCW 8256 ou 8512. 

La connexion d’un PCW au réseau téléphonique pour la création d’un serveur domestique peut se faire de 
deux façons : 

Soit par l'intermédiaire d’un modem auto-répondeur (qui se déclenche lorsqu'un appel est fait). 

Soit par l'intermédiaire du modem du minitel sous réserve qu'il soit retournable (qu'il puisse émettre et recevoir 
à la fréquence voulue). 

De nombreux minitels ont cette possibilité qui a l'énorme avantage de nous faire éviter l’achat du modem 
(environ 2.000 F !). 


Si le minitel est dit retournable, il n’est pas pour autant, auto-répondeur. Il faut alors ajouter un boîtier de 
détection qui compensera cette lacune. 


Dans tous les cas, le raccordement du PCW au modem ou au minitel ne peut se faire que si une interface 


série est raccordée sur le PCW. 
Les éléments étant réunis, voici les configurations précises : 


AVEC MINITEL RETOURNABLE REF. SANS MINITEL RETOURNABLE REF. ‘e 


LOGICIEL SYNEA SYN1 LOGICIEL SYNEA SYN 960 
INTERFACE SERIE CPS8256 INTERFACE SERIE CPS8256 580 
CORDON RS-232 XX DIN cB11 CORDON RS-232 XX DIN cB11 170 


BOITIER AUTO REPONDEUR N CORDON RS-232 FEMELLE-FEMELLE CB22 170 
MODEM AUTO-REPONDEUR V23 ATTEL 1.900 


PRIX H.T. SERVEUR COMPLET 


Ces prix sont communiqués par D.D.I. et correspondent à son tarif recommandé. Il convient d'ajouter une 
TVA de 18,6 %. 





ECRANS ET ARBORESCENCE 
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(SOMMAIRE) 


PRE.SOC RACINE.SOM MESSAGE.SOM 


RESSAGERIE 





me 





Lens si BAPE: E9 
M Retour sommaire + SOMMAIRE Retour sommaire général + SOMMAIRE 
(SOMMAIRE) COMMAND.SOM 

PRODUIT.C01 PRODUIT.C02 






Ime Qté prix NT Couleurs 


ARR TT 


Sonaire produits + SOMMAIRE 
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Chers amis bonjour ! 


Bravo, votre retour à des valeurs 
plus certaines fait plaisir à voir. 
Vous avez voté FRANCAIS et je 
vous félicite. Marc Hermion est une 
fois de plus élu, d’une courte 
longueur. Tenez, pour vous 
prouver ma gratitude, je débaptise 
Charly de cet infame sobriquet qui 


laissons des messages 
personnalisés, celles des éditeurs, 
à qui vous pouvez envoyer, 
commandes, plaintes, questions, 
avis et autres, et celles des brillants 
collaborateurs de l’Echo qui se 
feront une joie de savourer vos 
compliments. Les boîtes pouvant 
être appelées soit par leur numéro, 
soit par leur nom, vous n'aurez plus 


RanNHunnuzE 


- COQU IN 


est, aux dires de l'un de mes 
lecteurs les plus assidus, 
généralement donné à une 
machine encore trop peu connue 
pour mériter le W réservé à l'élite. 
J'ouvre donc une grande 


aucune excuse après lecture de la 
liste qui figure à l'option BAL. 
Voilà, voilà, ça sonne déjà ! 


S 
& © 


AUTEURS 


SERVICE COMPRIS 


HERTMI I ON 
HERM | ON 


consultation sur ma boîte à lettre 
télématique du service Echo 
(48.67.62.25-24/24h) afin que l’on 
rebaptise publiquement lors du 
grand diner organisé par le club de 
l'Echo (voir page club et insister 
auprès de Patrick pour qu'il nous 
épargne Germaine !)... 





Me retrouvant seul devant un PCW 
anonyme, je me suis consolé sur le 
minitel et je suis totalement en 
mesure de vous expliquer le détail 
de la manipulation. 


D'abord, vous composez à l'aide 
de votre index le plus résistant le 
numéro du serveur (48.67.62.25) 
sans omettre le 1 préparatoire si 
vous appelez de province. Dès que 
votre oreille valide se sent 
chatouillée par un couinement aigü 
(celui que l’on pousse à la lecture 
du tiers provisionnel!), pressez 
courageusement la touche 
« CONNEXION/FIN » de votre 
minitel et comtemplez ! 


Le miracle technologique 
s’accomplissant sous votre œil 
stupéfait (l’autre est en vacances) 
vous constatez que cela marche. 
Pour accéder aux boîtes aux lettres 


En accord avec Synatel et DDI, les 
serveurs SYNEA commercialisés 
auront droit de cité dans nos colonnes. 
Donc, tous les mois je vous dévoilerais 
les numéros d'appels des serveurs 
installés ainsi que leur utilité exacte 
(sous réserve d’avoir l'accord du 
propriétaire). Je fais le pari qu'avant 6 
mois nous rachèterons l'annuaire 
télématique !!! 


LES FOUETTES DU MOIS... 


Et dire que j'allais oublier le meilleur ! 
Le suprême plaisir de fouetter sans 
retenue les bougres coquillards et 
malheur, j'en tiens un qui a d'énormes 
fesses recouvertes d'un cuir épais! 
L'ami Friedrich terrassé par 2 
milligrammes de sang dans son alcool! 
a déliré plein tube dans DUR DUR le 
Disque DUR ; 


1/ Le temps d'accès disque est bien 
meilleur que celui des disquettes (65 
microsecondes pour le disque). 

2/ PIP sait très bien faire des copies de 
plus de 256 Ko mais est incapable de 
prendre en charge le Back up complet 
du disque et c'était là que Merci 
intervenait. Merci à Merci de nous 
pardonner et veuillez excuser notre ami 
Friedrich qui termine à peine sa cent 
dix huitième cure de désintoxication. 


DU PAPIER POUR TOUS... 


Démarrage spectaculaire pour notre 
opération « du papier pour tous » qui 
semble faire l'unanimité. Suivant le 
souhait de certains, nous gardons à 
votre disposition un échantillonnage de 
feuilles personnalisées qui vous seront 
envoyées contre deux timbres à 2,20 F. 


Le 1000 ? 


Il semble qu'à peine franchi le cap 
annonciateur des 900, le millième n'ait 
pas encore timbré son envoi... Il le sera 
pour notre grand diner du club Echo 


FRIEDR I CH 
JEAN PERRIN DE MARSEILLE 


GERMAIN DEL ALANDE 
<<< MARC HERMION >>> 
0 

GERMAIN DEL AL ANDE 


L'EQUIPE 


SR ATIR IRIS ET ENST ITET ET IRIS IS III LEE ES IS AT LE ER ESS SELS SIT IS IT IT ETAT IAA IT SIT ITR IE IE ET IS SSII ITITITIT IT ET ATARI ITS ETAT ITITITITIT ETES ETES 


15,1S 


nannuHnNNNNNNNNNNIHNINIINNNNANTIE 
PATRICE BIHAN 
A. 
MARC 
MRC 
Mm.MUySZ 
DR LOCO 
DAVID RATHEONE 


s 


RANGS 


HI STOGRANMES 


ttinis es es es 2e ts 2924 29 ES ES LS ES 3 8 ES ES EE ES LS EN LT ES EI LR ES AS III III IT ET ET ATIT IT IT ETATIT AT ET IS IS IIS IAE ATARI AS AIT IT ST LT ETAT NT ET ET 


NOTES 


>>2>3>>>2>2> 


>> 


Ciere)D 
— SYNEAR 
— STLST 


INTERFACE Mx-sSsp 


durant lequel nous lui remettrons tous 
ses cadeaux. 


Venez nombreux et n'oubliez pas de 
trouver un nom décent à mon PCW qui 
ne me boude plus depuis qu'il a 
rencontré une SPOOL de luxe ! 


MUSIC MACHINE 


ESS ! 


(BAL) l'Echo, qui fait toujours plus 
pour ses lectrices, vous offre deux 
voies d'accès. Soit en tapant BAL + 
ENVOI pour aller directement à la 
liste des BAL soit par 2+ENVOI 


ESSAI COMPAGNON 


ODELUGE ASCII 
PCWU ET MINITEL 


CP-M TOUL BOX 
SPECIAL LECTEURS 


STRIKE FORCE HARR I ER 
BUSINESS MEC PO 
LES CONF IDENCES DE LOCOSCRIFPT 
MOYENNE GENERALE 


INITIATION À DBASE CZD 


Nos Gagnants du mois. 


# 
#t 
# 
# 
# 
# 
# 
# 
# 
# 
# 
#t 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
tt 
#t 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
N # 
# 
# 
#t 
# 
# 
# 
# 
#t 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
à 
à 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
tt 
tt 


HIER ES RIT ER AT ITA IT ET I AT ET SR ET IT EE AS AT ST IR ES ST AIS IT IST IT IT IT AS ITS AT ITITSEETATITETEIITES 


suivi par le nom de la boîte dans 
laquelle vous voulez laisser un 
message. À ce stade, vous pouvez 
aussi taper GUIDE pour retournez 
à la liste des boîtes. Les boîtes 
disponibles sont celles des 


Pierre PAND 


PS: On a détaché David qui en a 
lâchement profité pour s’enfuir. Malgré 
un sévère contrôle douanier, il nous 
échappe encore. Prime à qui le 


18 BR 48 48 888444 89 ESS ES E9 29 EE ES HS ES BE BB 88 89 99 29 ES ES ES EI ER LS LS LI AS I EI SSSR IT ETS NINNNANNNNNNNNNNNNNNNNNNMNMANNNNNNINNNNNNNNNNNNNNNNNNNNNNNMNNMANNMNNMMMNAMTIMES 


16 RHRHHHENANNNIINIIANINN IE ISIIENITITSTITITITIT ASIE IE ES ITSTET ET ETSIITSIET ETES 
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UNTUGRDO 


Imprimé grâce au logiciel ROTATE 


ramènera entier. 





membres du club à qui nous 
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DELUGE ASC !I 


Nous le savons. De nombreux programmes peuvent 
échanger leurs données et comme nous l'avons appris 
le mois dernier, un seul standard le leur permet, 
l'ASCII si pratique nous réserve toutefois quelques 
surpises de compatibilité (rien n'est jamais parfait) qu'il 
va falloir résoudre avec le plus d'ingéniosité possible. 


Démarrant la rubrique avec l'inénarrable Locoscript, 
j'avais laissé entrevoir que la création de fichiers 
ASCII, par son intermédiaire, pouvait nous révéler 
quelques surprises. Et quelles surprises! Nous, 
français des pieds à la tête, nous retrouvons en 
présence de fichiers ASCII amputés de ce qui fait le 
charme sans égal de notre douce langue : LES 
ACCENTS ! 


Vérifions-le. Prenez votre Locoscript habituel, et tapez 
le texte suivant : 


Après avoir lu l'Echo N° 5, je me suis demandé où je 
l'avais posé ? 


Sortez par [EXIT] + [ENTER] pour finir l'édition, laissez 
le curseur sur le nom du texte que vous venez de taper 
et procédez à une sauvegarde ASCII standard par 
[F7], curseur sur « Créer fichier ASCII », suivi par le 
choix du groupe dans lequel vous allez le mettre et son 
nom (TOTO.ASC par exemple). Choisissez le groupe 
0 du lecteur A pour être certain de le récupérer 
facilement sous CP/M. 


Ceci fait, passez sous CP/M en retournant la disquette 
système, remettez la disquette sur laquelle se trouve 
TOTO.ASC et tapez : 


TYPE TOTO.ASC [RETURN] 


Le résultat n'est pas fameux et vous en convenez : 





DANEMARK 


tpr)s aveir lu l'Eche NIS, je ne suis denand{ ol! je l'avais pos{? 





Figure 1 
Mais que s'est il passé ? 


Le jeu de caractères du CP/M dispose de 256 signes 
et caractères différents. Si les 128 premiers suivent le 
standard ASCII, il n'en est pas de même pour les 128 
suivants. Ainsi, les voyelles accentuées étant 
beaucoup plus nombreuses que le jeu standard ne le 
permet (pensons aux circonflexes, au tréma, etc...) ces 
dernières sont codées en fin de liste soit : 224 à 245. 
L'exception est faite des caractères é,à,ù,è qui font 
tous partie du jeu standard (O à 127). Ceci n'explique 
rien encore mais tout va s'éclaircir. 


Locoscript, anglais de naissance, considère les 
accents comme faisant partie du jeu étendu (128-255) 
donc pour lui les caractères normaux, correspondant 
à ceux des voyelles accentuées, sont en réalité les 
codes qui les remplacent lors de la création d'un 
fichier ASCII. Mais pourquoi, me direz vous ? Tout 
simplement parce que tout changement de police de 
caractère sous CP/M a pour effet d'inverser les 
symboles entre jeu standard et non standard pour n'en 
perdre aucun. C'est logique et l'exemple d'une lettre 
quelconque vous permettra de mieux comprendre. 


Le code standard pour 64 correspond à ‘ & ”’ en ASCII 
standard (américain ne l'oublions pas) et le caractère 
“à’’correspond au code 234 du jeu de caractère 
étendu (regardez le manuel CP/M page 106). 


Si on oblige l'ordinateur à changer de police et plus 
précisément si on lui demande le jeu français, il va 


SUEDE 


# 
x 
É 
Â 
Ô 
A 
U 
é 
L.| 
() 
C\ 
ü 


Figure 2 
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procéder à l'inversion des 2 et la représentation du 
code 64 deviendra ‘‘à”’ et celle du code 234 sera “ @ ”. 


Ainsi, nos deux symboles sont toujours disponibles 
mais l'un est devenu standard et l’autre ne l'est plus. 
Ceci est identique pour 12 d’entre eux et le détail est 
résumé par langue en figure 2. 


Locoscript, dans sa grande mansuétude, considère 
que pour une sauvegarde réussie en langue française, 
il faut inverser les codes standards et les codes non 
standards pour nous garantir une francisation parfaite, 
et comble, le CP/M étant déjà francisé, les codes sont 
déjà inversés et l'on se retrouve avec les codes 


vous demandera d'entrer le nom de fichier à convertir 
et le nom du fichier bénéficiaire de la conversion. 
Comme je vous l'ai exposé plus haut, tout repose sur 
une simple inversion des codes et pour cette raison, 
la conversion fonctionne dans les deux sens à savoir : 
rendre un fichier ASCII locoscript standard pour CP/M 
ou inversement. 

Ayant rétabli l'incroyable confusion de Locoscript, je 
n'ai d'autre alternative qu'une retraite méditative sur 
les secrets d’'ASCII, mais aû fait, que faisons-nous sur 
terre ?! 


Marc HERMION 


originaux ! 


Qui trop en brasse mal les tient ! Nos fichiers 
ASCII sont tordus et nous devons trouver une 
parade infaillible. 


L'Echo dans sa superbe générosité vous en 
offre 2 | 


1/Manuelle : 


Cette parade est simple et utilise le principe 
exposé ci-dessus pour rétablir la réalité. 
Puisque Locoscript inverse les codes 
abusivement, faisons-le avant lui pour 
récupérer les bons codes... 


Le changement doit porté sur la totalité du 
texte et l'option EXCHANGE obtenue par 
[EXCH] est parfaite. Les codes concernés 
sont : 


à, °,ç,8,6,ù,è,: qui devront être remplacés par 
leur équivalent du jeu américain de la figure 
2. Exemple remplacer ‘‘à”” par ‘‘ @ ”’ sur tout 
le texte (voir figure 3). 





2/Automatique : 


A l'inverse de la précédente, cette parade 
va nous éviter nombre de manipulations en se 
chargeant, sous Basic, d'effectuer l'inversion 
à notre place. Si la méthode est reposante, 
elle cache tout de même un inconvénient de 
taille car les phrases du texte original ne 
doivent pas dépasser 255 caractères sans 
retour chariot. Cette contrainte est liée à 
la méthode et je 
m'emploie acti- 
vement à résou- 


LOCASC-BAS dre le problème 
pour un prochain 
déluge... 

se gouve sur le Une fois saisi et vé- 

disquette Echo © rifié, le program- 
me LOCASC.BAS, 
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CP/N Plus Anastrad Consuner Electronics ple 

v 1.4, 6IX TPA, & dise drives, SI0/Centronics add-on, 368K drive N: 
BASIC 

Nallard-90 BASIC with Jetsan Version LF 


(c) Copyright 1 ti 
re ee Mie 


31597 free bytes 


B:AVANT 
}s avoir lu L'Echo NCS, je ne suis denand{ ol je l'avais pos{? 
8 HA PARMESAN 


B:APRES 
à avoir lu l'Echo N°5, je ae suis denandé où je l'avais posé? 


Figure 4 


REM AXKEEEENEEENEEEEEEEENS 

REM %  TRANS-LOCASC V 1,0 3 

REM 3 MADE BY MARC HERHION 3 

REM 4 POUR L'ECHO OU PCH 3 

REN RRSIINXIAALENEEENENEEEES 
60 CLEAR:DIM A$(18) 
70 T$=CHRS(245)+CHR#(238)+CHR$(234)+CHR$C166)+CHR6(235)+CHR4 (2 
25)+CHR$(178)+CHR$(162)+"çüa8èé" *" 
80 ASC1)="6":A$(2)=" 0" :AS(3)=" a": AS(4)= "SG" AS(S)=" 8" ASE )= "6" 
1A#(7)=""":A$(B)="*" 
90 AS(9)=CHRS(245) ASC 10)=CHRS(238) ,ASC11 )=CHRS(234) :ASC12)=CH 
R6(166) :AS(13)=CHRS (235) :AS(14)SCHRS (225) :ASC1S)=CHRS(178) : ASC 
16)=CHR$(162) 
100 INPUT “NOM OU FICHIER DE DEPART" :A$:1F FIND$(A$)="" THEN P 
RINT "#23 FICHIER INCONNUI#43":G0TO 100: #44 ENTREE OU FICHIE 
R DE DEPART ET TEST SUR SA PRESENCE 
110 INPUT “NON OU FICHIER D'ARRIVEE":B$ 
120 OPEN “1",1,A$:0PEN "0",2,B$:' #44 OUVERTURE DES FICHIERS 
130 WHILE NOT EOF(1):' #84 BOUCLE SUR LE FICHIER 
140 LINE INPUT #1,A$:60SUB 170:PRINT #2,8$ 
150 VEND 
160 PRINT “FINITO": CLOSE : END 
165 REM 3Xx SOUS PROGRAMME DE TEST 
170 B$="";LELENCAS):FOR I=1 TO L'CS=MIDSCAS,1,1):J=INSTR(, T4, 
CS): "#4 LIGNE DE TEST SUR LA PRESENCE D'UN CODE A MODIFIER 
180 IF J{>0 THEN C$=A$(J) 
190 B$=B$+C$:NEXT:RETURN 
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AMSTRAD A LONDRES... 
LA MOROSITE ? 


Cher lecteur, 


Voici, brièvement, le petit courrier que j'aurais pu t’envoyer lors de 


notre voyage en Angleterre... 


Accompagnés des grands froids qui paralysèrent le pays, nous 
sommes bien arrivés au Novotel Londonnien pour se réchauffer à 


l'Amstrad user chaud ! (5° du nom). 


Je crois que nous étions les seuls contents d'être là ! Je devine 
ton étonnement mais tu vas tout comprendre après ces quel- 
ques explications... D'abord le vilain Sweety (dit aussi chou- 
chou, voir Sugar pour les actionnaires de Beghin say) met bien 

du temps à livrer ses PC et retire sans vergogne le manuel basic 
des PCW pour l’amputer de ses pouvoirs et affirmer haut et fort que 
ce n’est qu'un traitement de texte et qu'il ne faut surtout pas le confondre 
avec l’autre. Donc le totalitarisme PC continue ses méfaits en entraînant 
quelques sociétés dans des chutes inattendues. C'est ainsi que de nombreuses 
faillites agrémentent les meilleures conversations, Gémini, Northern computer et 


bien d'autres en cours ou à venir. Pas 
vraiment joyeux tout cela, mais rien 
ne démonte l'Echo et ses amis 
anglais. Pour preuve, regarde David 
Rathbone qui découvre son premier 
article français, c’est pas de la joie, 
ça ? 


La vérité est pourtant claire, les 
joyeux aiment l’Echo ! Andrew 
Clarke et DAVID POWYS-LYBBE le 
prouvent aussi. Andrew et David 
sont des sommités informatiques 
d'un pays où peu de journaux peu- 
vent aujourd’hui se vanter de n'avoir 
pas fait appel à leurs grandes 
compétences. David dirige 
aussi le plus grand groupe CP/M 
d'Angleterre  (plu- 
sieurs milliers de 
membres) et, 
après avoir 
offert 






























DAVID RATHBONE AIME L'ECHO 
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SCRIVENER au club de l'Echo, nous 
fait miroiter les avantages d’un tra- 
vail commun avec le groupe des 
CP/Mistes britanniques. Propositions 
alléchantes qui sera à suivre de très 
près... Mais continuons la visite. 
Voilà Kado, qui après avoir détruit 
son PCW avec une tasse de thé (véri- 
dique) a décidé de lui faire une pro- 
tection étanche qui séduira tous les 
amis de Parkinson et de la maison du 
café réunis ! 


Un autre éditeur est aussi très heu- 
reux, Chris Witthington, notre 
vedette du numéro 1 brillant auteur 
du 3D clock chess, vient de mettre 


tout son savoir graphique en un pack qui fait un véritable ravage. En deux 

mots, il s’agit de plus de 50 routines, utilisables en tous langages accompa- 
gnées de leur source en assembleur commenté. Ce pack permet de 

programmer en basic des logiciels aux performances graphiques profes- 

sionnelles. En deux mots, refaire Batman, space invaders ou fairlight 

devient avec Graphic magic accessible à tout programmeur moyen. Sa 
francisation est d’ailleurs en cours. 


Le graphisme sur PCW semble d’ailleurs être l’une des préoccupa- 
tions favorites des éditeurs. Grafsales propose une tablette graphi- 
que avec un logiciel de D.A.0. à faire grimper Michel Ange au pla- 
fond (une pause s'impose) qui redescendra aussi vite en lisant 
son prix car ce n’est pas Sixtine pounds mais 2 000 F pour ce 
bijoux. Espérons la voir, très prochainement en France. Je note 
l'absence de Mirror soft qui nous fait toujours languir avec 

son desktop publisher et particulièrement si l'on sait qu'il 
est capable (d’après les spécifications écrites...) de pilo- 
ter une imprimante laser. Promis pour Octobre, Fleet 
Street Publisher semble s'éterniser à Soho ou il a pro- 

bablement maille à partir avec sa police (de caractè- 

res, bien sûr). 


Enfin pour t'apprendre une bonne nouvelle, un fabricant 
à CURE À e 

c LP" vient de mettre au point une machine à réencrer les rubans 
0” de PCW. Si cette dernière n’est pas donnée (environ 5 000 F) 
le coût du réencrage est quasiment nul pour une qualité d'encrage 
; ch identique, voir supérieure aux rubans du commerce. Et si tu trouves cela 
CN ‘ astucieux on pourrait peut-être en acheter une pour l'Echo. 


ot" Voilà, maintenant je file car on nous attend au pub où seule les affaires sérieuses 
se traitent entre 2 pintes et les crispies au bacon... A bientôt et qui sait si nous ne 
t'emmènerons pas au prochain. 


L'Echo’s team 


O O O © AZERTY 


cours complet de dactylographie 


pour la maîtrise du clavier Azerty Ç 


une méthode unique 
comprenant plus de cent exercices 
progressifs en rythme et en difficulté 


Mettez toutes les chances de votre côté avec AZERTY 
c'est un logiciel LOG/’STICK distribué par D.D.I. 
en vente chez votre revendeur spécialiste PCW 
Renseignements (1) 48.67.28.44 + 


ORDI-PLUS 


LE SPECIALISTE DE L'INFORMATIQUE 
FAMILIALE ET PROFESSIONNELLE 
THOMSON, AMSTRAD, COMMODORE... 


Tous matériels. 
Plus de 1 000 logiciels, jeux, livres. 


Entrée libre - Démonstration permanente 
7, place Camélinat - 93600 AULNA Y-SOUS-BOIS 
Tél. : 48.68.66.33 





LES PLUS 


DES LECTEURS 


Nos lecteurs sont formidables et ils le prouvent ! 

Voici une série de « plus » triés sur le volet dans l’abondant courrier qui nous submerge 
chaque jour. Persuadés que vous les adopterez sine die tellement ils sont pratiques, les 
voici, en rang d'oignons, prêts à mieux servir encore notre PCW... 


PLUS VITE... 


Ce plus fonctionnant sous CP/M est tout simplement 
génial. Il est l’œuvre de Francis DALIPHARD qui 
PCWise comme il soigne ses patients... Avec amour 
pour sûr ! 


Sans attendre chargez votre CP/M favori et profitez 
sans vergogne de l'affichage de A) pour taper les 
séquences suivantes : 


LES TOUCHES A PRESSER CE QUE VOUS VOYEZ A L'ECRAN 
[EXIT] [E] [RETURN] A) TE 


Résultat de l'opération : l’écran vient de s’effacer en 
laissant le curseur à sa position d'origine. Pour 
l'envoyer en position 0,0 ou HOME, essayez : 


LES TOUCHES A PRESSER CE QUE VOUS VOYEZ A L'ECRAN 
[EXIT] [H] [RETURN] A) .°H 


Ce plus amène une conclusion qui servira dans de 
nombreuses occasions. 


La touche [EXIT] affiche le code ESCAPE qui permet 
d'envoyer à l'écran les codes qui le gèrent. Comme 
le CP/M n'interprète que les codes des lettres 
majuscules, les codes p et P sont compris de la même 
façon. Cela limite notre champ d'action aux codes 
majuscules et chiffres, soit : 


[EXIT]+ [0] pour donner accès à la ligne d'état. 
[(EXIT]+ [1] pour l’interdire l'accès à la ligne d'état. 
[EXIT] + [2][0] à [7] pour changer le jeu de caractères 
étrangers avec : 


O=AMERICAIN, 1=FRANÇAIS, 2= ALLEMAND, 3=ANGLAIS, 4=DANOIS, 
5=SUEDOIS, 6=ITALIEN, 7 =ESPAGNOL. 


[EXIT] + [E] vide la fenêtre (efface l'écran) 
[EXIT] + [H] ramène le curseur en position 0,0 
[EXIT] + [l] remonte le curseur d’une ligne 

[EXIT] + {[J] efface la fenêtre ou l’écran à partir de la 
position du curseur 

(EXIT] + [L] insère une ligne 
{EXIT]+[X1+1C1]+1C2]+ [C3] + [C4] définition d’une 
fenêtre selon les codes ASCII des coordonnées, soit : 


C1=HAUT+32, C2=BORD GAUCHE + 32, C3=HAUTEUR+ 32, C4= LARGEUR + 32 


C1 et C3 s'expriment par des codes alphanumériques 
représentant des nombres de lignes à partir de la 


première dont la valeur est 0. C2 et C4 représentent 
des colonnes dont la première vaut O. 


EXEMPLE : Fenêtre de 16 colonnes sur 11 lignes dont 
le coin gauche est à 7 colonnes et 5 lignes du coin 0,0: 


C4=/ (47), C3=* (42), C2=& (38) et C1=$ (36) 
Donc [EXIT]+(X]+1$]+1{[&]1+1*1+1[/1+ [RETURN] 
définit la fenêtre. 


LES TOUCHES A PRESSER 
[EXIT]+[X1+1$1+ [&]+[*]+[/] 


CE QUE VOUS VOYEZ A L'ECRAN 
t°X$&* 


[EXIT]+[Y]+1C1]1+1C2] définition de la position à 
l'écran du curseur, fonctionne comme ESC+X de 
l'exemple précédent avec : 


C1= Code ASCII de la position en nombre de lignes + 32 
C2 = Code ASCII de la position en nombre de colonnes + 32 


Ces codes peuvent aussi être intégrés dans des fichiers 
SUBMIT pour le formattage automatique de l'écran lors 
du lancement du CP/M. De la même façon, ils 
permettent, dans de nombreux cas de se passer du 
programme LANGUAGE.COM pour changer de polices 
de caractères. 


EXEMPLE : Pour obtenir les crochets qui nous 
perturbent tant. 


LES TOUCHES A PRESSER 
{EXIT]+(2]+(0] 
8 ou © 


CE QUE VOUS VOYEZ A L'ECRAN 

1°20 

[ou] 
Enfin pour compléter ce « plus » vraiment plus, une 
petite séquence amusante et néanmoins révélatrice… 
toptoHHOYAIJE SUIS ICHOHtOMt°Mt°Mt°Mt° MMM MIO MtOMIOMtOMtOMtOMtOMtOMI 
topopopoporepeoperenonoteneeneereyi1ICI JE -FINIS+H 
Sympathique n'est-ce pas ? 


Le deuxième truc offert par un de nos lecteurs africain 
et plus particulièrement gabonais. Jean DOMBO nous 
révèle avec précision comment LOCOSCRIPT cache 
ses documents et comment s'en jouer avec une 
véritable aisance. 


Commençons par ce que nous savons tous : 


En lançant LOCOSCRIPT, apparaît rapidement le disc- 
manager illustré en figure 1. Premier constat, les textes 
sont répertoriés sous 8 groupes (de O à 7) par 
disquette. On peut penser que chaque document est 
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Gestion disque. 
Te sen 1bb) 


Tr e b: 
dk ris 


vide 
ok Libr 


S doc. 


© doc. temp 


un fichier à part entière et qu'il suffit de regarder le 
répertoire du disque, sous CP/M, pour en obtenir 
confirmation. Bien, faisons-le ; 


Passons sous CP/M (face 2), remettons la disquette 
LOCOSCRIPT (face 1) et tapons DIR [RETURN]. 


La figure 2 est éloquente : sur plus de 20 documents 
seuls 3 semblent disposés à nous dévoiler leur 
existence. Ou sont les autres ? Un rapide coup de fil 
à Sherlock ne m'en apprend pas plus... Il va falloir 
chercher et qui cherche... Trouve ! Le secret des 
fichiers qui pourrait faire un Sulitzer sans forcer, réside 
tout simplement dans les zones USERS (utilisateur) qui 
permettent au CP/M de compartimenter le disque en 
zones indépendantes et relativement hermétiques les 
unes par rapport aux autres. 


tdi 
U ELE STD : PHRASES STD : LETTRES GRP : LISEZ MOI 
FILE(S) EXIST 


ds 
Ù 


Figure 2 


Le CP/M dispose ainsi de 15 USERS (de O à 14) par 
lecteur et l’on passe de l’un à l’autre en indiquant 
lecteur et numéro d'USER:; exemple :A3: [RETURN] Il 
est important de savoir que les 15 users d’un lecteur 
sont assimilés à lui-même et que A reste A quelque 
soit le USER sur lequel nous sommes. Cela pose donc 
un problème sérieux mais pas insoluble : 


Comment transférer des fichiers d’un USER à l’autre 
puisque dans tous les cas AO ou A12 est compris 
comme étant A ? 


Le PIP.COM miracle, celui qui peut tout faire, nous 
sauve de l’ambarras en un tour de main que vous 
prendrez très vite : 
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à D=hode PRIE 
TrHodes 651 SE n; 


© doo. 


T 1 
© doc. tenp. 
STD ik 





Figure 1 


Avant de vous donner ce plus, je dois vous 
communiquer comment révéler le contenu de 
n'importe quel USER en partant de notre USER habituel 
à savoir AO: plus connu sous l'appellation de A. C’est 
le programme DIR qui agit. Il doit se trouver sur A pour 
donner le plein de son efficacité. 


Répertoire d’un USER avec DIR: DIR X : 
ou X = LECTEUR et Y=N° d’USER 


SUSER=YS8 


Exemple : DIR A : °USER = 38 [RETURN] affiche sans 
forcer les documents que nous pensions enlevés par 
quelques Moujahidins révolutionnaires (!). 


Répertoire de tous les USER: 
DIR X:°USER = ALLS où X = LECTEUR (A,B,C, ou M). 


Maintenant, il est question de passer un texte d’un 
groupe vers un autre sans passer par Locoscript. 
Retrouvons PIP et essayons. 


PIP XD:NOM1.EXT°GDS8 = XS:NOM2.EXT°GSS5 
avec : 


XD & XS respectivement lecteurs destination et source 
GD & GS respectivement USER destination et source 
NOMMI.EXT & NOM2.EXT respectivement nom et 
extension destination et source. 


Exemple : 

PIP A:PHRASES.LOC°G38 = A:PHRASES.STD°GO08 [RETURN] 
fait passer le fichier PHRASES.STD du USER 0 vers 
le USER 3 en profitant du transfert pour le renommer 
en PHRASES.LOC. 


Pour résumer, je pense que les USERS permettent, 
entre autre, de soulager le répertoire d’un nombre 
excessif de petits fichiers qui ne tardent jamais à 
encombrer l'écran, et de conclure comme l’Echo, 
encore ne faut-il pas oublier, tes petits USERS cachés ! 


LES PLUS DES LECTEURS 


REALISEZ VOS MAILINGS 


personnalisés avec la puissance du TURBO 


TURBO-MAILING 


100% langage machine 


SIMPLE 
d'utilisation 





prix TTC : 64 5° 


CBI - CBI - CBI - CBI - CBI - CBI 


1e* SPECIALISTE AMSTRAD 
DU SUD-EST 


CBI Informatique - 6 rue Mazarine - 13100 AIX-EN-PROVENCE - 42.27.00.40 
CBI Informatique - 74 rue Edmond Rostand - 13000 MARSEILLE - 91.53.70.57 


CENTRE DE FORMATION PCW 


VOICI MON BON DE COMMANDE 
NOM EE  —  ..-PréNOM = = = Ù . =  - Tél]. 
Adresse 
Vie _______________ Code Postal 





Mon PCW est un | Renvoyez le tout à : Service expédition 
C] Mid CI, de paiement CBI Informatique 
CO Chèque (ci-joint) Chemin de la Viane 

or Les Tousques 
CL] 8256 double drives 84360 MERINDOL 


Contre-remboursement 





NOUVEAU } 
BASIC ET GRAPHISMES ? 


EXBASIC : LA FIN DES COMPLICATIONS ! 


Plus besoin de se torturer les méninges avec des fichiers dans tous les sens | EXBASIC adapte les fonctions 
graphiques les plus utiles au BASIC MALLARD et vous programmez vos dessins à l’aide d'instructions claires 
et précises, comme LINE, CIRCLE, DRAW, etc... 





EXBASIC : UNE NOUVELLE PUISSANCE ! 


Comment sauver l'écran sur disquette pour le récupérer tout aussi simplement en n'importe quelle circonstance 
dans tous vos programmes basic ? SAVE et LOAD suffisent. 

Dessiner point par point, générer des caractères en toutes tailles, sauvegarder des parties d'écran en BASIC 
MALLARD... C'est cela la puissance de EXBASIC ! 


EXBASIC : UNE AUTRE DIMENSION ! 





Une fois lancé, EXBASIC s'ajoute au BASIC MALLARD et vous donne accès à de nouvelles fonctions. 
Livré avec un manuel complet décrivant en détail chacune des nombreuses fonctions de EXBASIC, vos programmes 
prendront une nouvelle dimension qui pourrait même ressembler à la troisième. 





BASIC ET GRAPHISMES C'EST EXBASIC ! 


EXBASIC est une co-production NABITCHI computing Ltd et LOGI'STICK (c) 86 
Distribution exclusive par D.D.I. 48 67 28 44 + 


D OOLEr NALEIIe) LUN TN EE 


En vente chez les meilleurs revendeurs AMSTRAD au prix de 250 F TTC. 






AU | 
NOUVE | BON DE COMMANDE 


SUR LE DISC 6 
NOM 20 a ten a En cn tee SA PRENOM 
ADRESSE 


Commande par la présente : 


ABONNEMENTS D'UNE ANNEE À COMPTER DU NUMERO 7 (11 numéros) SOIT 
ABONNEMENTS D'UNE ANNEE À COMPTER DU NUMERO 7 (11 numéros) SOIT 


DISQUETTES ECHO N° U] [2] WU] [s] [el 


x 290 (FRANCE) 
x 450 (ETRANGER) 
x. 80 (FRANCE) 
x 95 (ETRANGER) 
x 690 (FRANCE) 
x 900 (ETRANGER) 
x 35 (FRANCE) 
x 45 (ETRANGER) 


nisquerres EcHON° 1] [2] (s] [4] [sl (] SOIT 


ABONNEMENTS DISQUETTES* A COMPTER DU NUMERO 7 (11 numéros) SOIT 
ABONNEMENTS DISQUETTES* A COMPTER DU NUMERO 7 (11 numéros) SOIT 


ANCIENS NUMEROS : Li] G) GG 000 SOIT 
ANCIENS NUMEROS : L] [2] A] Gl El D'E SOIT 


(Entourez les numéros choisis) 


C] CHEQUE* C] MANDAT* C1 ccp* 


SIGNATURE 


(obligatoire) 


+ Libellez vos règlements à l’ordre de LOGI'STICK Edition 
* Avec programmes de démonstration inédits 


TOUS CES PRIX SONT NETS ET INCLUENT 
LE PORT ET L'EMBALLAGE 


Retournez à L'ECHO DU PCW - LOGJISTICK Edition 
CAPN «LE BONAPARTE » (BOITE 49) 93153 LE BLANC MESNIL CEDEX 





VOTEZ POUR LUI ! 






NOTEZ BIEN, 
NOTEZ MAL 
MAIS VOTEZ ! 


Notez chacun des articles 
que vous avez lu et 
retournez ce 
questionnaire à L'ECHO. 
Chaque mois, l'auteur 
dont l'article a obtenu la 
meilleure moyenne se 
verra attribuer une prime 
de 1000 F et le lecteur 
tiré au sort recevra 

un magnifique 
cadeau-surprise. 


ARTICLE 


INITIATION À DBASE (4) 
SPOOL (BANC D'ESSAI) 
DEMARRER AVEC SYNEA (1) 
DELUGE ASCII (2) 
LONDRES, LA MOROSITE ? 
LES PLUS DES LECTEURS 
LES PLUS DE LOCOSCRIPT 
GESTION DE STOCK 
REPORTAGE SCANNER 
LES PLUS DE CP/M 

LES PLUS DE EXBASIC 
D.A.O. AVEC GS.X 


PASLU TRESMAUVAS MAUVAIS 


(a = 0 


MOYEN 








oO = = 

















0 ml (ss) 






























































EF Er FE ON EL Er ONE 








NOTES 


. /20 
. /20 
. /20 
. /20 
. /20 
. /20 
. /20 
. /20 
. /20 
. /20 
. /20 
. /20 


NOM nee nus nr Abe à pe mn PRENOM : 256 ts a eu Un QT RTE nee 
ADRESSE 00m Ge den MS TR TA SA Ra D SR ÉRAREEN 2 LTD PE AE A Le A A A NE 
AGE: nee Ne de ee De pt TT PROFESSIONS: 22m RS De OM Vos OUTRTe 





SERVICE ECHO 


DU PAPIER POUR TOUS ! 


Toujours prêt à rendre les meilleurs services à ses 
lecteurs, l'Echo s’est associé à un imprimeur spécialisé 
pour la fabrication de papier à lettre en continu à en- 
tête et bas de page personnalisés. 


MOINS CHER AVEC L'ECHO ! 


Certain du succès que cette formule va obtenir, L'Echo 
a pu négocier les tarifs les plus bas pour de toutes 
petites quantités par personnalisation. En effet, le prix 
de mille feuilles personnalisées est inférieur à celui 
habituellement pratiqué pour des tirages supérieurs à 
10 000. 


C'est donc un service généralement réservé aux 
grosses entreprises que l'Echo vous propose en avant 
première dans toute la presse informatique. 


COMMENT COMMANDER 
SON PAPIER A LETTRE 


Les spécifications du papier vous sont données plus 
bas. Pour mettre tous les atouts de votre côté, 
préparez votre papier à lettre sur une feuille de brouillon 
en organisant l'emplacement de chaque élément. Pour 
vous aider, nous avons recensé les rubriques qui sont 
les plus courantes et que vous êtes susceptibles 
d'utiliser. Vous pouvez ainsi cocher chaque mention 
de manière à ne pas les oublier dans votre 
personnalisation. Nous vous conseillons de bien vérifier 
leur justesse. 


PARTICULIERS : ENTREPRISES : 

TITRE ENSEIGNE 

NOM (ET PSEUDONYME) ADRESSE COMPLETE 

PRENOM AUTRES ADRESSES (LIVRAISON, 


GOMPTABILITE, ETC) 
TELEPHONE AVEC INDICATIF ET 
GROUPAGE DE LIGNES 

TELEX AVEC REFERENCES 
EVENTUELLES 


ADRESSE COMPLETE 
PROFESSION OU FONCTION 


TELEPHONE AVEC FAX (TELECOPIE) 

L'INDICATIF SERVEUR AVEC CODE D'ACCES 

DECORATIONS EVENTUEL 

DIPLOMES REGISTRE DU COMMERCE 

SERVEUR TELEMATIQUE CODE APE 

EMPLOYEUR FORME JURIDIQUE 

ADRESSE SECONDAIRE CAPITAL SOCIAL 

BLASON ET DEVISE NOM DE L'EXPLOITANT OU DES 
DIRECTEURS 

TITRES SPORTIFS LOGOTYPE 

AUTRE LISTES EVENTUELLES DES 
PRESTATIONS ET DES 
MARQUES 
MENTIONS PROPRES À VOTRE 
PROFESSION 
AGREMENT AUPRES D'UN 
SYNDICAT PROFESSIONNEL 
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ENTREPRISES (Suite) 


HEURES D'OUVERTURES 
CCP OU COMPTE BANCAIRE 
MESSAGES PUBLICITAIRES 
MENTIONS RELATIVES AU 
DEPOT DE LA MARQUE 
AUTRE 


Cette première opération réalisée, notez sur le bon 
situé au verso ou sur une feuille séparée la totalité des 
mentions et dessins devant apparaître sur votre papier 
à lettre et cela le plus lisiblement possible. Pensez à 
préciser toutes les opérations d'impression, la couleur 
d'impression ainsi que la quantité voulue (minimum 
1000 feuilles). 


POUR ALLER ENCORE PLUS VITE 


Si vous avez déjà un papier à en-tête sur feuille volante, 
vous pouvez l'envoyer directement en précisant les 
mentions à ajouter ou à supprimer et ce que vous 
désirez modifier (emplacement d'un texte, couleur 
d'impression, taille des caractères, etc). 


SPECIFICATIONS 


Imprimé avec un matériel ultra-moderne, le papier en 
continu a un format de 12 pouces et ses micro- 
perforations laissent la feuille totalement nette de 
toutes traces de découpe des feuilles ou des bandes 
de traction, l'option pelure autocopiante permet 
d'imprimer un double sans utilisation de carbone et 
cela en un seul passage. 


UN CADEAU ECHO ! 


indépendamment de la remise offerte aux membres du 
club, les feuilles seront livrées avec les explications 
permettant le paramétrage des programmes les plus 
courants (LOCOSCRIPT, TASWORD) pour une 
utilisation encore plus rationnelle. 


UNE FORMULE QUI A DE L'AVENIR... 


Nous sommes tous conscients de la nouveauté de 
cette formule à travers un journal et nous pensons 
qu'elle séduira la majorité d’entre vous. Si votre 
adhésion est massive, nous poursuivrons la formule 
avec d’autres types d'imprimés personnalisables 
comme les bons de livraisons, factures, bulletins de 
payes, etc. Aidez-nous à innover | 


ET LES PRIX ? 


[JUNE COULEUR | DEUX COULEURS | 
[SANS PELURE | 4997 | essr | 
Cavecrecure | 1997 | i259r | 


PORT PAR TRANSPORTEUR 50 F LE MILLE 






:  CORRESPONDANCE 


NOUVEAU 


DONNEZ DU PUNCH 
A VOTRE CORRESPONDANCE 


VOTRE PAPIER 
A EN-TETE 


sur listing continu 
avec ou sans pelure 
auto-copiante. 


VOTRE EN-TETE 









4 traits de pliure 


(en option) 
Pour 1000 exemplaires 
en format 12 pouces : 
Bandes H 
Caroll à A partir de 


micro-perforations 
pour une feuille 
nette 
































VOTRE cadre adresse 
BAS DE PAGE (en option) 
EN-TETE Choix de la police 
Inscrivez-ici le plus de caractères 
lisiblement possible 1[UA 
le contenu de votre * 
en-tête 2 
30A 
alla 
5 [] A 
OPTIONS (sans supplément) : e . 
TRAIT DE PLIURE []J OUI [] NON CADRE ADRESSE CO out E] NON 8(A 
N/REF  V/REF [] ou! [] NON SIGLE PERSONNALISE [] OUI EE] NON 9 Cl 
(nous fournir un modèle) autre : nous fournir un modèle 
BAS DE PAGE : 
ere ligne RS") 
2° ligne Le 
COULEURS D'IMPRESSION : NOIR C] BLEU ROUGE [] VERT BISTRE CL] 
BON DE COMMANDE 
NOM: _____ PRENOM: 
ADRESSE : 
Commande par la présente x 1000 Exemplaires personnalisés À __ x F + _____x50 F (port et emballage) 
SOIT TOTAL DE _______FREGLEPAR [] Chèque ] mandat SIGNATURE : 
[] joignez une facture avec TVA ressortie. (obligatoire) 
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l'écho 


ENFIN UN CLUB |! 


POUR TOUS LES PASSIONNES 
QUI VEULENT TIRER LE MAXIMUM 
DE LEUR MACHINE 


Démarrant ses activités le 1°" Décembre 
1986, le CLUB ECHO DU PCW sera l’indis- 
pensable complément du magazine. 


Les remises accordées par les revendeurs 
« club » ainsi que les logiciels donnés par le 
club doivent permettrent d’amortir très rapi- 
dement le coût de l'inscription. 


Un bulletin mensuel servira de liaison entre 
les adhérents et comprendra toutes les infor- 
mations à caractère urgent (nouveauté, expo- 
sition) mais aussi l'adresse des revendeurs 
« Club » mise à jour, des programmes inédits, 
des trucs et astuces impubliables (par rapport 
à la quantité) ainsi que des informations 
techniques. 


CE QUE VOUS OFFRE LE CLUB 
Dès réception de votre inscription, nous vous 
ferons parvenir : 
- Votre carte personnelle d’adhérent 


- Votre code d'accès à votre boîte aux lettres 
personnelle sur le serveur ECHO 


- Un tableur qui est en train de révolutionner 
l'Angleterre est offert par MML aux adhé- 
rents du club (valeur 450 F) 


- La liste des revendeurs « club » de toute la 
France chez qui vous obtiendrez les meilleu- 
res remises. 


TOUTE L'ANNEE 


- Vous recevrez régulièrement votre bulletin 
de liaison. 


- Vous pourrez participer aux stages organi- 
sés par l'Echo du PCW selon des conditions 
très avantageuses. 


- Vous pourrez utiliser et consulter en toute 
liberté votre boîte aux lettres personnelle sur 
le serveur de l'Echo. 


- Etre invité personnellement à toutes les réu- 
nions ou exposition organisées par l'Echo du 
PCW. 


Pour faire partie des privilégiés du PCW, 
n'attendez-pas, inscrivez-vous pour une 
année au CLUB DE L'ECHO DU PCW et 
retourner le bon ci-dessous à : 
CLUB ECHO DU PCW, LOGI'STICK Edition 
CAPN Le Bonaparte, Boîte 49 
93153 Le Blanc Mesnil Cédex 


DE --- ER EE 


J'adhère pour une année à compter du  / / 


ONE PRENOM : 
ADRESSE : 
TEL. : ___________________________ PROFESSION: 


Tarif pour une année : France 350 F - Etranger 495 F 


au club de l'ECHO DU PCW 


AGE : 


Signature obligatoire : 


Etudiants et chômeurs : France 290 - Etranger DOM TOM 390 F 


(Accompagnez votre inscription du justificatif) 


Règlement par 5 Chèque ou FE Mandat à L'ECHO DU PCW 


GE @ Œ  Œ © D  E D EE E D © © E E © E D E E D © E D EE EP 


a 
æ LES PLUS DE LOCOSCRIPT æ 
æ æ 


LOCOSCRIPT est-il plus ? Cette question aberrante m'a été posée lors de la préparation 
du présent numéro. Vous imaginez ma surprise mêlée d’une indignation à peine contenue. 
Vous allez voir si je ne suis pas le meilleur ai-je répondu au nom de tous les miens ? Je 


me fais fort de vous le prouver et qui plus est, en deux pages s'il vous plait ! 


QUOI DE NEUF ? 


Aujourd'hui, pas de nouvelles. Je teste MAILING de 
LOGI'STICK dont la traduction enfin complète vient 
de m'être généreusement accordée... Un pur 
bijoux ! Je peux vous assurer d’une voix haute et 
claire qu'il va faire un tabac. Je le désosse le mois 
prochain, patience... 


LE PLUS DU MOIS 
C'EST MOI 
Revenons à nos affaires. Suis-je plus ? Bien sûr que 
je suis plus et le titre qui orne mon article le prouve 
sans équivoque. C’est moi et moi seul qui suit 
capable de faire d'aussi jolies choses. Maintenant, 
n'attendez plus une seconde pour me lancer sans 
attendre sur votre écran d'émeraude. 


Me voilà clignotant comme un poisson dans l’eau. 
Je peux vous avouer enfin le secret de mon plus car 
il tient en un mot : |’ INTERLIGNE ! 


En jouant judicieusement de ce code, vous 
obtiendrez des fantaisies qui font mon plus grand 
charme. 


BIFFONS ET BARRONS 


Non, biffons et barrons ne jouent rien dans un café 
théâtre des bas fonds parisiens, ils signifient 
seulement que nous pouvons le faire. Biffer et barrer 
comme la figure 1 le dévoile. 


JE BIFFE ET JE BARRE 


ONE) <B=XtI 


RÉRSESEEE 
ren 
LL LL. 


Figure 1 


| 





L'idée de la manœuvre tient à la faculté d'imprimer 
sur la même ligne des lignes qui se suivent dans le 
texte. C'est l’interligne mis à zéro qui le permet et 
ce dernier s'obtient par 5 touches successives : 


(11 1] [L] [9] [ENTER] 


N'oubliez jamais que tout changement d'interligne 
n'est pris en compte qu'après le premier retour 
charriot rencontré. Le même commentaire est 
valable pour la fin de l’interligne 0 qui s'obtient par : 


[CA] 11] [L] [ENTER] 


Ainsi, jouant sur l’interligne, vous pouvez créer de 
nouveaux symboles ou des effets spéciaux 
représentés figure 1 et obtenus en tapant sur votre 
écran ce que vous montre la figure 2. 


cInterL)e 
(nterlb)e 
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Figure 2 


Dans cette dernière, l'interligne est mis à 1/2 pour 
obtenir des effets de chevauchement qui feront 
rêver plus d’un traitement de texte. 


JOUONS DE L'INTERLIGNE 


Maîtriser l’interlignage ouvre des horizons souvent 
inespérés. le cas me fut posé par un lecteur savant 
qui, désespéré de la lisibilité insuffisante des indices 
et des exposants, ne savait plus que faire. Avant 
de sombrer dans l'alcoolisme ou je ne sais quelle 
drogue, il eut la bonne idée de m'en toucher un mot. 
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Cet épineux problème qui 
faillit se solder par la perte 
d'une sommité ne pouvait 
résister au talent méconnu 
de mon interlignage. La 
figure 3 représente un petit 
texte dans lequel indices et 
exposants, en taille 
standard, cohabitent sans 
complexe. Pour obtenir cela 
deux conditions sont 
requises et dépendent du 
format général du texte 
modifié en édition d'’en- 
tête. Comme la procédure 
vous est maintenant 
connue, je vous l'épargne 
et vous précise que 
l'interligne doit être mis à 1 
et le pas de ligne à 6. Ceci 
peut aussi être fait par 
l'intermédiaire d’un format 
de page édité pour la 
circonstance. 


Le chevauchement des 
indices, ou exposants, est 
ensuite obtenu par 
l'utilisation conjointe de 
l'interligne mis à 1/2 et du 
pas de ligne mis à 8 lignes 
par pouce 
[HJIPIILIS8)ENTER)). 


On rétablit ainsi un 
interligne faussé par l’ajout 
d'une ligne supplémentaire 
d'indices ou d’exposants. 
Si la régularité n'est pas 
absolue vous conviendrez 
que le résultat est tout de 
même satisfaisant. 


En saisissant l'écran de la 
figure 4 vous pourrez tout 
à fait supprimer quelques 
code d'interlignage ou de 
pas de Ligne et vérifiez ainsi 
les effets de vos modifi- 
cations. 


LE LASER ? INUTILE ! 











Etudions maintenant un certain nombre de cas de figure plus ou moins 
Spéciaux comm l'insertion d'une formule pouvant contenir des indices 
ou des exposants en taille normale sans risquer de dépareiller notre 
compte rendu. 

Le résultat d'une équation telle que AX9+BX2+CX45-0, peut-il être 
calculé ? 


Enfin la même procédure dans le cas d'indices en taille normale avec 
une justification forcée par l'utilisateur est aussi simple à 
préparer: 

Voilà encore une belle formule du genre H,0 ou FaCR H£ qui ravira tous 
nos lecteurs chimistes... 


Figure 3 
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Figure 4 
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Figure 5 


Je concluerais en vous parlant de la 
réalisation du titre dont l'écran corres- 
pondant est en figure 5, utilisant 
l'interligne O sur plusieurs lignes 
successives, j'obtiens une superpo- 
sition de l'impression qui finit par 


devenir aussi grasse que les meilleures 

imprimantes à laser ! 

Reconnaissez qu'avec l'économie que 

vous venez de faire, vous pouvez 

avouer que je suis vraiment plus ! M 
Dr LOCO 
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GESTION DE STOCK SUR PCW 


Nos précédents programmes vous ont permis (nous l’espérons) d’amasser un joli magot et de déterminer 
si vous aviez l’étoffe d’un business man, il est maintenant l'heure de monter commerce pour fructifier, 
par le travail, cet argent si facilement gagné. L'Echo, restant fidèle à vos préoccupations journalières, 
vient encore à votre secours et c’est avec une joie à peine dissimulée que vos fidèles serviteurs vous 
proposent une gestion de stock rationnelle avec gestion des fournisseurs et édition des bons de 


commandes. Commerçants, à vos claviers ! 


PRESENTATION 


Le programme est construit autour d’un point central - le 
« menu » (FIGURE 1)- proposant le choix entre 9 
commandes possibles : vendre, stocker, commander, rentrer 
un nouveau produit, charger ou sauvegarder un fichier, 
vérifier, identifier, lister ou supprimer. Après l'exécution de 
chacune des commandes, ci-dessus, on revient 
automatiquement au « menu ». 


- VENDRE, ,....., 
- STOCKER. ...... 
= COMMANDER , ...., 
= NOUVEAU PRODUIT . . 
- CHARGER / SAUVEGARDER 
- VERIFIER, ,...., 
- IDENTIFIER. ..... 
- LISTER, .. 

- SUPPRIMER . 

FN... 
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FIGURE 1 


NOUVEAU PRODUIT (choix N°4) 


Ce choix vous permet de stocker au magasin de nouveaux 
types d'articles (FIGURE 2). Leurs noms peuvent contenir 
jusqu'à 20 caractères (lettres, chiffres, espaces ou signes). 
Cependant, un espace seul ne peut pas être accepté. Il faut 
ajouter que deux articles de type différent ne peuvent pas 
avoir de nom identique. 


Chaque type d'article doit également posséder un code. 

Celui-ci aura au maximum 4 caractères. || est évident que 

des articles de type différent doivent avoir des codes 

différents. 

On indique ensuite le nombre d'articles mis en stock, leur prix 
unitaire, l'adresse du fournis- 
seur qui ne doit pas dépasser 40 
caractères : il conviendra donc 
d'utiliser des abréviations dans 
certains cas. 


Enfin, vous rentrerez la dernière 
information demandée pour 
chaque nouvel article stocké qui 
est le délai de livraison ou de 
réapprovisionnement qui devra 
obligatoirement être exprimé en 
jours. 
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PRE NO U UE A OX ARTICLE S meme 


# Non du nouvel article ? AGFA FE II 60 
# Code de l'article ? A1 


# Nonbre d'unités °° es 

# Prix mitaire ° 16 

# fresse du fournisseur ? X7 à 9 - S bd St Cernain 75005 Paris 
# Délais de livraison en jours ? 


FIGURE 2 


VENDRE (choix N°1) 


Cette option devra être utilisée lors de toute sortie d'articles 
du magasin. Suite à une vente, vous devrez, après avoir tapé 
[E], indiquer pour chaque article son code ainsi que le nom- 
bre d'unités à enlever du stock (FIGURE 3). Si ce dernier nom- 
bre s'avère supérieur au nombre d'articles disponibles, un 
message d'erreur s’affichera en vous indiquant le nombre 
d'articles en stock. Vous reviendrez alors au sous-menu de 
l'option d'où vous pourrez soit recommencer la manœuvre 
en donnant des réponses concordantes (et vous verrez s'affi- 
cher un message vous indiquant la quantité restant en stock 
pour cet article), soit retourner au menu principal en tapant 
[R]. 


RRBHHBBBBBBBBBEBBBBBPBBBBE (LE ND RE 2886H66RRBERREReRbeE 


# Code de l'article a enlever ? TD 
* Nonbre d'unites a enlever  ? 12 


FIGURE 3 





IDENTIFIER (choix N°7) 


Mais que faire si l’on a oublié le code d'un article ou, au con- 
traire, quand on ne sait plus quel est l’article correspondant 
à un code donné ? Cette option vous permettra de résoudre 
ce petit problème passager : - pour retrouver le nom de l'arti- 
cle à partir de son code, vous devrez taper [C] et rentrer le 
code en question : vous obtiendrez alors le nom. pour retrou- 
ver le code, même opération sauf que vous taperez [N] et 
rentrerez le nom (FIGURE à). 

Une fois satisfait, vous pourrez retourner au menu principal 
en tapant [R], comme cela fut dit au paragraphe précédent. 


HBBBEBBBEBBBBB68E L DE NT I F I E R 2B6H6H6R6beREbeRbEt 


# Non de l'article à chercher ? TDK SA 9% 
# TDX SA 9% À POUR CODE : TD6S 
FIGURE 4 





VERIFIER (choix N°6) 


Vous aurez ici la possibilité de vérifier (en tapant [V] le stock 
disponible, ainsi que sa valeur en francs, pour n'importe quel 
type d'article, en indiquant simplement son code (FIGURE 
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5). Et c'est la dernière fois que je précise que [R] vous 
renverra au menu principal. 


VERJIEFIE R #HHH6m6b6b6mbeeet 


# Code de l'article a vérifier ? TD6S 


# QUANTITE EN STOCK 16 
#* VALEUR DE CE STOCK 496.00 


FIGURE 5 


LISTER (choix N°8) 


Cette commande rend possible l'édition sur écran (FIGURE 
6) ou sur imprimante, des noms et des codes de tous les 
articles en stock, avec le nombre de leurs unités disponibles, 
de la valeur de leurs stocks en francs et de la fréquence des 
ventes (=sorties du magasin), par mois de chacun des 
articles. 

La date de l'inventaire du magasin figure également ainsi que 
la valeur totale en francs de tous les articles en stock. 





ETAT DU STOCK AU 13/03/87 


L'… ok 2.00 HE Mrs 
L'… =: q VU 2.00 PAR Mrs 
L' ah MUR 6.00 Ars 
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ba me fa, Pi Mrs 
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FIGURE 6 


COMMANDER (choix N°3) 


L'ordinateur établira de lui-même la commande des articles 
auprès des fournisseurs au moment opportun. Ce moment 
optimal est établi par le programme quand la fréquence 
moyenne des ventes multipliée par le délai de 
réapprovisionnement devient supérieure au nombre d'articles 
en stock et en commande. Le nombre d'articles, alors 
commandé, sera égal à la différence entre les deux nombres 
comparés. Puisque notre formule utilise la fréquence 
moyenne des ventes, elle est mieux adaptée à toutes les 
activités d'entreprise plutôt constantes dans le temps (non 
périodiques). 

Il convient d’ailleurs d'ajouter qu’un certain temps sera 
toujours nécessaire pour que cette formule établisse une 
réelle fréquence MOYENNE des ventes - non entâchée 
d'erreurs dues à des fluctuations apparaissant toujours d’un 
jour à l'autre. 

Cette commande restera sans effet si le stock des articles 
et le nombre d'articles en commande restent suffisants par 
rapport à la fréquence moyenne des ventes. Dans le cas 
contraire, l'ordinateur, par l'intermédiaire de l'imprimante, 
établira automatiquement la commande nécessaire, 
comportant l'adresse du fournisseur, la date, le nom et le 
nombre d'articles et un rappel du délai de livraison. 


SUPPRIMER (choix N°9) 


Vous aurez ici la possibilité d'arrêter la gestion d'un des 
articles qui est alors supposé ne plus se trouver au magasin 
et ne plus jamais être vendu. Exceptionnellement, on 


14.0 HR 
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indiquera le nom (et non le code) de l’article à supprimer pour 
diminuer la probabilité d'erreur. 


CHARGER/SAUVEGARDER (choix N°5) 


Il'est impératif, après chaque utilisation du programme, de 
sauvegarder les données créées pour pouvoir les récupérer 
ultérieurement. Après avoir choisi cette option, vous pourrez 
sauvegarder vos données en tapant [E], puis en rentrant le 
nom du fichier, nom qui, soit dit en passant, ne doit pas 
dépasser 8 lettres. Vous opérerez de même pour charger un 
fichier sauf qu'au lieu de taper [E], vous devrez taper [LI]. 
Puisque c'est à vous de rentrer le nom du fichier, il en ressort 
que vous avez la possibilité de créer plusieurs fichiers ce qui 
pourrait peut-être vous être utile dans le cas d’un stock aussi 
important qu'hétéroclite. Nous vous conseillons toutefois, 
dans ce cas, de bien faire attention à sauvegarder le fichier 
en cours avant d'en charger un autre. Sinon, le deuxième 
écrasera le premier et toutes les modifications ultérieures à 
sa dernière écriture seront perdues. Pour limiter les risques, 
seront affichés les noms du dernier fichier chargé et du 
dernier fichier sauvegardé. 

Toute écriture ou lecture est prévue pour se faire sur le drive 
AÀ:; mais il suffit, si l’on veut travailler sur un autre drive, de 
remplacer ‘‘’A:"’ par ‘‘B:"" ou ‘‘’M:'’ dans la formule de 
composition de ‘‘FIC$'’" qui est de la forme 
“A:"+Y$+"".GST'’ vous trouverez la ligne en question à 
la fin du ‘’sous-programme n° 5°’ dans le listing). ‘’.GST'’ 
est l'extension que le programme donne à tous ses fichiers 
(vous pouvez aussi la changer du moment qu'elle reste de 
la forme ‘’.XXX'’ et qu’elle ne soit pas une extension 
réservée comme ‘‘’.BAS'’ ou ‘’.COM'" par exemple). 


REMARQUE 


Il'est important à chaque début d'utilisation du programme 
de toujours entrer une date correcte. Sinon, les dates de 
mouvement de stock, et par conséquent le calcul des 
fréquences, s’en trouveraient faussées. 


Vous voilà encore richement nantis d’un programme à haut 
rendement qui n'attend que vos talents de programmeurs 
pour le rendre parfait. Nous espérons que vous nous ferez 
part de vos améliorations que nous ne manquerons pas 
d'étudier avec la plus grande attention. A bientôt. 


NOTE RELATIVE A LA SAISIE DU PROGRAMME 


A la lecture de vos commentaires sur nos précédents bébés, 
nous avons découvert avec étonnement total (comment, il 
n'est pas clair le manuel Amstrad ?) que certains d’entre vous 
éprouvaient de grandes difficultés voir une incapacité totale 
à saisir les programmes. Pourtant, nous restons persuadés 
que la saisie d’un programme basic demande peu de 
compétence et, qu’en suivant ce petit mémo, vous devriez 
vous en sortir parfaitement : 


— Pour saisir un programme BASIC, il faut d’abord changer 
le BASIC, comme cela : 


Allumer l'ordinateur, insérer la disquette système face 2 vers 
l'écran et attendez l'affichage de A} pour taper en toute lettre 


BASIC que vous validerez en pressant la touche [RETURNI. 
Quand ‘‘’Ok””’ apparaît, le basic est prêt et vous pouvez saisir. 
Les lignes démarrent toujours par un numéro qui sert 
constamment de point de repère. On indique que la ligne est 
saisie en pressant [RETURN]. Elle ne l’est vraiment que si vous 
avez tapé jusqu'au dernier caractère après lequel la ligne 
suivante commence. Pour regarder le contenu de vos lignes, 
tapez LIST et [RETURN]. Pour modifier une ligne tapez EDIT 
suivi de son numéro et [RETURN]. Pour essayer le programme 
tapez RUN + [RETURN] et [STOP] pour l'arrêter. Pour le 
sauver sur la disquette tapez SAVE ‘’STOCK''[RETURN]. Pour 
le recharger dans le basic tapez LOAD ‘’STOCK''[RETURNI. 


— Si malgré votre persévérance vous n’en voyez pas le bout, 
les disquettes de l’'Echo vous sauveront toujours ! 





M. MUSZYNSKI et O. COQUIN 


FAITES FORTUNE AVEC VOTRE PCW 


19 REM HERESANESSNNRRARNNETIAR 


29 REN ? .t 

38 REN 1 GESTOCK i 

49 REN 1 t 

59 REM à (C) L’ECHO DU PCN 

68 REN 1 î 

718 REN titititititinttstiitnnit 

89 REN 

99 ? 

199 '=essssasssssssszssz jnitialisation s=2s2222222222222222222 
118 ? 

128 1=180:DIM ARS(Z),CD$ (2) ,AD$(2),AD2$ (2) ,DA$(2),ST(2),NB(), 
VA(Z) ,C0(2) ,DL (2) 


138 CD$=CHRS (27) :CN$=CD$+"e":CF6=CD4+" 4": VNS=CD$+" p": VF #=CD$+" 

q'sLF$aCDS+"K" 

149 DEF FNC$(C,L)=CD$+"V"+CHRS (3241) +CHRS (3240) 

158 CLS$=CD$+"E"+CD$+"H":EFP#=CDS+" 7": BLÉSCHRS (7) :ERLFS=CD$+"n 

"sERLNS=CD$+"v" 

168 USS="#NAANNA" I USLS="ANANANER #4": GOSUB 19189:60T0 219 

170 I$=INKEVS:IF 1$="" THEN 179 ELSE I$=UPPERS(I$):AI=ASC(I$): 

RETURN 

189 ? 

190 ’sssessssasssssessesz présentation =2==2=22s22222222222222 

200 

218 PRINT CLS$CF$ 

228 PRINT FNC$(39,2)"6 E S T O C K" 

238 PRINT VNSFNCS (35,8) CHR$ (134) ;:FOR Hizi TO 19:PRINT CHR$(13 

B)3NEXT HI: PRINT CHR$(148):FOR Hizi TO S:PRINT FNC$(35,H1)CHR 

$(LSSIFN 

C$(SS,HLICHRS(1SS)INENT Hi 

249 PRINT FNCS(35,41CHR$(131);:FOR Hizi TO 19:PRINT CHR$(138); 

INEXT HI:PRINT CHRS(137)VFS 

230 RESTORE 298:F0R 1219 TO 28 STEP 2:READ MES:PRINT FNC$ (23,1 

IMES:NEXT I 

268 GOSUB 178:1F AI(48 OR AL)57 THEN 268 

278 ON AI-47 GOSUB 11039,1830, 2030, 3830, 4038,5038,6030, 7036, 89 

39,903 

288 GOTO 219 

298 DATA - VENDRE, ,,,,,,,. 

399 DATA - STOCKER, ,,,,,,, 

319 DATA - COMMANDER , ,,,,,, 

329 DATA - NOUVEAU PRODUIT , , .. 

338 DATA - CHARGER / SAUVEGARDER . 

349 DATA - VERIFIER, ,,,,,,, 

359 DATA - IDENTIFIER, , .,,,. 

368 DATA - LISTER, ,,.,,,,,, 

378 DATA - SUPPRIMER , , . . , .. 

388 DATA -FIN,,,,,,,,,, 

1998 ? 

1910 ’sssasszassszssssss sous-progr anne 

1928 ? 

1939 PRINT CLS$ 

1948 PRINT FNC$(26,12)"< E > ===} Enlever un article du stock" 

1959 PRINT FNCS(26,14)"€ R > ===) Retourner au nenu général" 

1969 PRINT FNC$(9,D):PRINT STRINGS(38," 4"); VENDRE ";STR 

IN6$ (38, "4") 

1979 GOSUB 179:1F AI<269 AND AI()82 THEN 1978 

1988 IF AI=82 THEN RETURN 

1999 Y$="":PRINT CN$EFPSFNCS (19,6) "$ Code de l’article a enlev 

er "ss INPUT Y$:YS$=UPPERS (Y$) 

1189 IF Y$="" THEN 1159 

1118 V=B:PRINT FNC$(18,8)"4 Nonbre d'unites à enlever "SPACES (3 
2 INPUT V:PRINT CF$ 

1128 FOR I=9 TO 

1139 IF CD$(1)=Y$ THEN 1168 
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1148 NEXT ! 

1199 PRINT FNC$ (36,26) VNSSPACES (3) "ERREUR CODE !'SPACES(S)VF$: 

GOSUB 19830:60T0 1939 

1168 IF ST(I)=0 THEN 1189 

1178 IF V<=ST(I) THEN VA(I)=VACI)-(VACI)/ST(I))#V:ST(I)=ST(I)- 

YENBUI)=NB(I)+Y:PRINT FNCS (19,28) VN$" 0 K ! IL VOUS RESTE "USI 

N6 US$,S 

TCL)ÿ:PRINT " EXEMPLAIRES EN STOCK "VF$:60SUB 19938:607T0 19389 
1188 PRINT FNCS(15,26)VN$" IMPOSSIBLE : VOUS N'AVEZ QUE "USING 
US$;ST(I);:PRINT " EXEMPLAIRES EN STOCK “VF$:60SUB 19939:60T0 
1939 


2818 ’=z==2s2sz=sssssssz sous-progranse N°2 ===2=22222222222222 

2928 

2938 PRINT CLS$ 

2849 PRINT FNC$(26,12)"< S > ===} Reapprovisionner le stock" 

2858 PRINT FNC$(26,14)"C R > ===) Retourner au menu général" 
2668 PRINT FNCS(9,B):PRINT STRINGS(37,"4");" STOCKER "35 
TRING$(37,"4") 

2976 GOSUB 170:IF AI<383 AND AI<)82 THEN 1978 

2988 IF AI=82 THEN RETURN 

2098 VS="":PRINT CNSEFPSFNCS (18,6) "$ Code de l’article à reapp 

rovisionner "s;:INPUT VS: Y$2UPPERS (Y$) 

2199 IF Y$="" THEN 2168 

2118 Y=8:PRINT FNC$(18,8)"# Nonbre d’unites a mettre en stock 
"SPACES (3) 3: INPUT Y 

2128 W=D:PRINT FNC$(19,18)"# Quel est Le Prix Unitaire "SPACES 
(11);s INPUT N:PRINT CF$ 

2138 FOR I=9 T0 1 

2148 IF CD$(I)=V$ THEN 2178 

2159 NEXT I 

2168 PRINT FNC#(36,26) VNSSPACES (3) "ERREUR CODE !"SPACES(3)VF$: 

GOSUB 19938:60T0 2838 

2178 VACI)=VA(T)+ VE ST(T)=ST(T)+V:CO(I)2CO(T)-YEPRINT FNC$(19 
,26)VN$" VOUS AVEZ MAINTENANT UN STOCK DE "USING US$;ST(I);:PR 
INT “UN 

ITES "VF$:60SUB 18838:60T0 2938 

3000 ? 

3010 'sszszszesssssssss sous-progr anne N° sesssezsssnsesenesz 

3926 

3938 PRINT CLS$ 

3949 PRINT FNC$(8,B):PRINT STRINGS(35,"4"); COMMANDER 
"$STRINGS (35, "4") 

3959 PRINT FNC$ (23,26) VNSSPACES (2) "EST-CE QUE L'IMPRIMANTE EST 
PRETE ? (O/N)"SPACES(2)VF$:60SUB 19938 

3968 GOSUB 179:1F AL()79 THEN 3868 

3978 PRINT FNC$(35,18)EFP$" Impression en cours" 

3986 FOR 129 T0 

3099 IF ARS(I)="" THEN 3288 

3169 GOSUB 19388:G0SUB 19488:1F (NBCIIEDL(T)/T) < (STITI#CO(I) 
| THEN 3286 

3118 LPRINT STRING$(42,"°") 

3128 LPRINT CHRS(14)CHRS(15)CDS"E"ADS (I): LPRINT CHR$ (18) 

3139 LPRINT CHR$(14)CD$"x"CHRS (1) SPACES (5) "COMMANDE * 

3149 LPRINT:LPRINT TAB(3S)"LE "DATSCD$"F" 

3159 G=INT((NB(L)8DL(L)/TI1-ST(L)-CO(1)+1:C0(1)=C0(1)+0 

3168 LPRINT:LPRINT TAB(7) 3 STR$(Q) ; SPACES (3) ; ARS (I) 

3179 LPRINT TAB(7)"DELAI DE LIVRAISON : "sUSING "####";DL(I);: 

LPRINT " JOURS" 

3188 LPRINT CD$"x"CHRS (8) 

3198 LPRINT STRINGS(42,"°") 

3289 NEXT I 

3218 RETURN 

4900 

4919 ’=z==szsssssssssse sous-progranne N°4 s==szzs2sssssszsess 


49289 

4938 IF FRE(A$)(598 THEN 4299 ELSE PRINT CLS$ 

4948 PRINT FNC$(26,12)"{ E > ===) Entrée d’un nouvel article" 

4958 PRINT FNC$(26,14)"< R } ===} Retourner au aenu général" 

4968 PRINT FNCS(8,8):PRINT STRINGS(26,"4");" NOUVEAUX 
ARTICLES ";STRINGS(26,"1") 

4076 GOSUB 179:1F AIC)69 AND AIC)82 THEN 4978 

4989 IF A1=82 THEN RETURN 

4998 VS="":PRINT CNSFNCS(23,8)EFP$"# Non du nouvel article "sl 

F$y: INPUT YV$:YS=UPPERS (VS): PRINT CF$ 

4199 IF Y$="" THEN 4938 

4118 IF LEN(YS)>28 THEN PRINT FNC$(49,8)VN$" PAS PLUS DE 28 CA 

RACTERES "VF$LF$:G60SUB 18938:60T0 4998 

4128 FOR 1= TO 1 

4138 IF ARS(I)=Y$ THEN 4168 

4i4g NEXT I 

4158 GOTO 4178 

4169 PRINT FNC# (32,26) VNSSPACES (3) "CE NOM EXISTE DEJA !"SPACES 

(S)VF$:60SUB 19038: 60T0 4935 

4179 M$="":PRINT CNSFNCS(23,8)EFP$"4 Code de l’articie"SPACES( 

S)3LF$3 INPUT N$:W$=UPPERS (NS): PRINT CF$ 

4189 IF W$="" THEN 4938 

4198 IF LEN(HS)>4 THEN PRINT FNC$(49,8)VN$" PAS PLUS DE 4 CARA 

CTERES "VFS$LF$:GOSUB 19939:6070 4178 

4289 FOR 1=ÿ TO 1 

4219 IF CD$(I)=W$ THEN 4248 

4228 NEXT ! 

4238 GOTO 4254 

4248 PRINT FNC$(32,28) VNSSPACES (5) "CE CODE EXISTE DEJA "SPACE 

$(SIVFS:60SUB 19838: 60T0 4938 

4258 FOR 1=9 TO I 

4268 IF AR$(I)="" THEN 4299 

4279 NEXT I 

4289 PRINT FNC$(19,26) VNSSPACES (5) "IL N'Y À PLUS DE PLACE EN M 

ENOIRE POUR ACCEPTER CET ARTICLE "SPACES (5) VF$:60SUB 19938: RETU 

RN 

4298 ARS(T)=V$:CD$ (I) =W$ 

4308 PRINT CNSFNCS(23,18)"4 Nombre d'unités" SPACES (7) 3LF$3 : INP 

UT ST(1) 

4318 IF ST(I)(8 THEN 4388 

4328 PRINT FNC$ (23,12) "4 Prix unitaire"SPACES(9):;LF$5: INPUT P 

4339 IF P<ÿ THEN 4328 

4349 VA(TI=PAST(I):P=8 

4359 PRINT ERLF#;FNCS (23, 14)EFP$"4 Adresse du fournisseur "3LF 

$;: INPUT AD$(I):PRINT ERLNS 

4369 IF LEN(ADS(1))€41 THEN 4388 

4378 PRINT FNC$(29,26)CF$VNSSPACES (5) "PAS PLUS DE 49 CARACTERE 

5 l"SPACES(S)VF$:G0SUB 19938:PRINT CN$:6070 4359 

4389 PRINT FNCS(23,16)"4 Délais de livraison en jours ";LF$;: 

NPUT DL(1) 

4398 IF DL(I)8 THEN 4388 

4490 PRINT CF$:DA$(I)=D$:6070 4838 

3008 ? 

5919 ’==sasessssssss2zz saus-progranne N°5 ===2=2=222222222222 

3929 ? 

3938 PRINT CLS$ 

3949 PRINT FNC$(39,12) "€ L > == 

3999 PRINT FNCS(39,14)"€ E > == 

3969 PRINT FNC$(39,16)"< R > ===) Retourner au menu général" 

RI 


6$(39,"2") 

5988 PRINT FNCS(5,27) "DERNIER FICHIER CHARGE"SPACES 9)": "5 UNS 
1" FICISs" "VF 

8998 PRINT FNCS(5,29) "DERNIER FICHIER SAUVEGARDE +: ":VNS:" “:F 
1C08;" ";VFS 


5199 GOSUB 179:1F AIC)89 AND AIC)82 AND AIC)78 THEN 5198 
5118 IF AI=82 THEN RETURN 

5129 1F A1=69 THEN 5289 

5139 GOSUB 5276: FICISeFICS 

5149 PRINT FNCS (36, 26) VNSSPACES (5) "LECTURE DU FICHIER"SPACES (5 
)VFS:0PEN "I",41,FICIS 

5150 FOR 129 T0 2 

S169 INPUT #1,ARSCT) CDS UT) ADS CIN, DASET),STII) BCE) , VAUT, CO 
(D), DL) 

5179 NEXT ! 

5189 CLOSE #1 

5194 RETURN 

5209 GOSUB 5278:FIC0$=F ICS 

5219 PRINT FNCS (36, 26) VNSSPACES (5) "ECRITURE DU FICHIER" SPACES ( 
S)UFS:OPEN "0", #1,FICOS 

5229 FOR 1=9 TO 1 

5230 WRITE #1,ARS(1),CDS(1) ADS) ,DASCI),ST(L) NBI), ACL) ,CO 
(1) ,DL(D) 

S249 NEXT ! 

5256 CLOSE #1 

5269 RETURN 

3270 YS="":PRINT CNSFNCS (18, 8)EFPS"# Non du fichier ";LF$3: INP 
UT VS: YS=UPPERS (VS) :PRINT CF$ 

5289 IF LEN(YS18 THEN PRINT FNCS(33, 28) VNSSPACES (5) "PAS PLUS 
DE HUIT LETTRES"SPACES (5) VFS:G0SUB 14830:6070 5278 

5290 FIC$="AL"+V$+",GST" 

3399 RETURN 


bD1ÿ ’======22222222222 ço0s-progr anne N'b sezssssssasssassss 

6928 ? 

6939 PRINT CLS$ 

8049 PRINT FNC$(26,12)"< V } ===) Vérifier le stock disponible 
pour un article" 

6056 PRINT FNCS(26,14)"< R } =2=} Retourner au menu général" 
6068 PRINT FNCS(8,8):PRINT STRINGS(36, "4" " VERIFIER" 
3STRINGS (36, "4") 

6878 EOSUB 179:1F AI()86 AND AI()82 THEN 6878 

6889 IF AI=82 THEN RETURN 

6098 Y$="":PRINT CNSEFPSFNCS (18,6) "4 Code de l'article a vérif 
ier "y: INPUT VS: VS=UPPERS (VS): PRINT CF$ 

6198 IF Y$="" THEN 6148 

6119 FOR 129 TO 1 

6120 IF CD$(I)=Y$ THEN 6158 

6138 NEXT I 

6149 PRINT FNC$ (36,26) VNSSPACES (5) "ERREUR CODE !'SPACES(S)VF$: 
6OSUB 19838:60T0 6938 

6159 PRINT FNC$(19,8)"8 QUANTITÉ EN STOCK ==2}"SPACES (4) ;USIN 
6 US$;ST(I) 

6169 PRINT FNCS(18,19)"8 VALEUR DE CE STOCK ===) "USING US18;V 
A(I) 

6178 PRINT FNC$(33,25)STRING$(28," _") 

6188 PRINT FNCS (33,26) VNSSPACES (3) "APPUVEZ SUR UNE TOUCHE" GPAC 
ES(3)VFS:GOSUB 178:607T0 6858 


1919 ’=====2=222=2222222 cous-progr anne N°7 s=sssssesssssesssss 

7029 

71830 PRINT CLS$ 

7949 PRINT FNC$(26,12)"< C > 222) Identifier Le non d’un artic 
le par son code" 

7059 PRINT FNC$(26,14)"€ N > =22} Identifier le code d’un arti 
cle par son no8" 

7068 PRINT FNC$(26,18)"€ R > ===} Retourner au aenu général" 
7070 PRINT FNCS(8,8):PRINT STRING$(34,"4");" IDENTIFIE 
R "sSTRINGS (34, "4") . 

7888 GOSUB 179:1F AIC)67 AND AIC)78 AND AIC>82 THEN 7088 


7999 IF AI=82 THEN RETURN 

7199 IF Al=78 THEN 7188 

7119 VS$="": PRINT CNSEFP$FNC#(19,8)"# Code de l’article a cherc 
her "ysINPUT VS: VS=UPPERS (VS): PRINT CF$ 

7128 FOR 1=ÿ TO 1 

7138 IF CD$(I)=Y$ THEN 7168 

7149 NEXT I 

7138 PRINT FNC# (36,26) VNSSPACES (5) "ERREUR CODE !"SPACES(5)VFS: 
GOSUB 19838:60T0 7939 

7168 PRINT FNC$(19,8)"$ "CD$(1)" CORRESPOND À L'ARTICLE : "AR$ 
(1) 

7178 60TO 7248 

7189 V$="":PRINT CNSEFPSFNCS (19,6) "# Non de l’article à cherch 
er "ysINPUT Y$:VS=UPPERS(YS):PRINT CF$ 

7199 FOR I=ÿ T0 

7299 IF AR$(I)=Y$ THEN 7239 

7218 NEXT I 

7228 PRINT FNC$ (26,26) VNSSPACES (5) "ERREUR DANS LE NOM DE L'ART 
ICLE !'SPACES(S)VFS:GOSUB 16030:G0T0 7838 

7238 PRINT FNC$(18,8)"8$ "AR$II)" À POUR CODE : "CD$(I) 

7249 PRINT FNC$(33,25)STRINGS (28, " _") 

7239 PRINT FNC$(33,26) VNSSPACES (3) "APPUYEZ SUR UNE TOUCHE"SPAC 
ES(SIVF$:60SUB 178:607T0 7838 

0010 ’zcascssssssanssss sous-progranne N°B ======2=2222222222z 
8938 PRINT CLS$ 

8949 PRINT FNC$(26,121"< I } =22) Liste à l'inprinante" 

8958 PRINT FNC$(26,14)" E ) ===) Liste à l'écran" 

8869 PRINT FNC$(26,:6)"€ R > ===) Retourner au menu général" 
8978 F16=CD$+"X"+CHRS (34) +CHRS (32) +CHRS (5B)+CHRS (121) 

8989 FO$=CDS+"L"+CHRS (32) +CHRS (32) +CHRS (63) +CHRS 1121) 

8998 PRINT FNC$(B,8):PRINT STRINGS(38, "hs" LISTE DU 
STOCK ";STRINGS(39,"à") 

8199 GOSUB 179:1F AIC)69 AND AIC)82 AND A1C)73 THEN 8198 

8119 IF A1=82 THEN RETURN 

8128 IF Al=69 THEN 8280 

8138 PRINT EFPSFNCS (35,15) "Iapression en cours" 

8149 LPRINT CHR$(15) ;CHRS (14) ;CD$"E"; 

8159 LPRINT SPACES(2)"ETAT DU STOCK AU "DATS 

8169 LPRINT CHR$(14) SPACES (2) STRINGS (25, "-") ;CD$"F" 

8179 LPRINT:GOSUB 19388 

8189 FOR I28 T0 1 

8199 IF AR$(I)="" THEN 8239 

8299 LPRINT:LPRINT TAB(18)CD$(I)TAB(16)"- "ARS(I) 

8219 LPRINT TAB(12) "STOCK ";USING US#:ST(T);:LPRINT TAB(38) “VA 

LEUR ";USING US1$;VA(I) 

8229 GOSUB 18488:LPRINT TAB(12) "FREQUENCE VENTE : "USING USt$ 
iNB(I)839,5/Ts:LPRINT " PAR MOIS" 

8238 NEXT ! 

8249 V=Q:FOR 129 TO Z:V=V+VA(I):NEXT I 

8239 LPRINT:LPRINT CD$"E":TAB(19)"=2==) VALEUR TOTALE DU STOCK 
"USING US$; V 

8268 LPRINT CD$"F";CHRS (18) 

8279 RETURN 

8289 PRINT CLS$FNCS(9,29)VN$" Tapez <S> Pour arreter le défile 

sent - Pour repartir: tapez une touche "VF$ 

8299 PRINT FNC$(32,8)"ETAT DU STOCK AU "DATSFNCS (32, 1) STRINGS 

23,"-") 

8389 GOSUB 19389:PRINT Fi$ 

8319 FOR I=ÿ TO Z 

8326 5S$=INKEYS 

8338 SS=UPPERS(S$):IF S$="S" THEN GOSUB 178 

8349 IF AR$(I)="" THEN 8389 

8358 PRINT:PRINT TAB(26)CD$(I)TAB(32)"- "ARS(I) 

8369 PRINT TAB(28) "STOCK "USING US$,6T(1)5:PRINT TAB(46)"VALE 

UR "USING US1$:VA(I) 


8379 GOSUB 19495:PRiNT TAB(28)"FREQUENCE VENTE : "USING US1$; 

NB(1)439,.9/T;:PRINT * PAR MOIS" 

8389 NEXT I 

8399 V=0:FOR 1=8 TD Z:V=V+VACI):NENT 1 

8499 PRINT:PRINT TAB(26)"====) VALEUR TOTALE DU STOCK "USING U 

S$:V 

8419 PRINT FOSFNCS(9,29)EFP$FNCS (34,29) VN$" TAPEZ SUR UNE TOUC 

HE "VF$:G0SUB 18930: G0SUB 178 

8429 RETURN 

9918 ’=z=2==222222222222 sous-progr anne N°9 =zzes2ssssasssssssz 

9038 PRINT CLS$ 

9049 PRINT FNCS(9,8):PRINT STRINGS(35,"4");" SUPPRIMER 
"sSTRINGS (35, "4") 

9058 Y$="":PRINT CNSFNCS(19,6)"4 NOM de l’article a suppriner 
"aLF$3s INPUT VS: VS=UPPERS (VS): PRINT CF$ 

9960 IF Y$="" THEN RETURN 

9078 FOR I=ÿ TO 

9989 IF ARS(I)=YS THEN 9119 

9999 NEXT I 

9199 PRINT FNC$(32,26) VNSSPACES (3) "NOM INEXISTANT !"SPACES (3) V 

F$:60SUB 19939:RETURN 

9119 ARS(T)="": CD (1) 2" "ST (TI=BINB(T)=D: ADS (TI =" "L VA(TI 291 DAS 
(D="":CO(T)=8:DL(1)=8 

9129 RETURN 

19919 ’======22222222 coUs-progrannes divers =2=22222222222282 
19928 ? 

18038 PRINT BLSBLSBLS:FOR K=ÿ TO 4DBG:NEXT K:RETURN 

19198 PRINT CLS$ 

18118 PRINT FNC$(49,2)"RENTREZ LA DATE" 

19129 PRINT FNC$(39,10)"Rentrez l'année (’19AA’) ==} "iLF$ss IN 

PUT AA 

19139 IF AAC1999 OR AA>2838 THEN 19128 

19149 PRINT FNC$(38,12)"Rentrez le mois (*MM’)"SPACES(4)"==) " 
sLF$3: INPUT MM 

19158 IF MMCI OR MM>12 THEN 19149 

18169 PRINT CNSFNC$ (39,14) "Rentrez le jour (’JJ’)"SPACES (4) "== 
} "iLF$;s INPUT JJ:PRINT CF$ 

19179 IF JJCI OR JJ»31 THEN 19169 

18189 IF (MM=4 OR MM=6 OR MM=9 OR MM=11) AND JJ39 THEN 19169 
19198 IF MM=2 AND 9929 THEN 19168 

19268 IF MM=2 AND JJ=29 AND INT(AA/4)C)AA/4 THEN 18160 

19219 IF MMCI9 THEN MM$="Q" ELSE MM$="" 

19220 MMS=MMS+MIDS (STRS (MM) , 2) 

19238 IF JJ(19 THEN JJ$="g" ELSE JJ$="" 

19249 JJS=JI8+MIDS (STRS (TJ) ,2) : AAS=MIDS (STRS (AA), 2) :D$=JJ$+MM6 
19259 PRINT ENC$ (33,26) "Nous sonnes donc le ";:DAT$=JJ$+"/"+Mm 
$4"/4RIGHTS (ANS, 2):PRINT DATS3CFS 

19269 PRINT FNC$(36,28)"APPUYEZ SUR UNE TOUCHE" 

19278 GOSUB 178:RETURN 

19300 IF VALURIGHTS (DS, 2) )>=VAL(RIGHTS (A$,2)) THEN 19349 

19319 FOR J=8 TO 2 

19329 IF DA$(J)<>"" THEN DAS (JI=2LEFTS (DAS (9) ,2) #STR$ (VAL (RIGHT 
$(DA$(J),2))+12) 

19338 NEXT J 

19349 A$=D$:RETURN 

19499 R=VAL (RIGHTS (D$, 2) ) :P=VAL (RIGHTS (DAS (1),2)) 

18418 C=VAL(LEFTS(D$,2) ):B=VAL (LEFTS (DA$(1),2)):F=INT (P/12) 
19429 IF F8 THEN T=(F-1)4565+(12-P+128F+R) 439. 5+C-B:60T0 1944 
ÿ 

19438 T=(R-P)KS9.S+C-B:IF T=ÿ THEN T=i 

19449 RETURN 


11939 PRINT CLS#FNCS (23, 12) "AVEZ-VOUS BIEN SAUVEGARDE VOS DONN 
EES (O/N} ?":60SÛB 178:1F A1=79 THEN PRINT CLSSCNS:END ELSE RE 
TURN 


PCW VECU 


Marie Pierre et Simone, secrétaires médicales, ne se 
doutaient pas en arrivant ce matin-là, sur leur lieu de 
travail, au service scanographique du centre 
hospitalier Robert Ballanger, que leurs habitudes 
allaient être quelque peu bousculées. Echangeant 
prestement machines à écrire contre PCW, le docteur 
GEORGES Daniel, fervent PCWiste, ne leur laissa pas 
le choix. Il fallait donc que nos deux héroïnes 
apprennent tout. Formatage, Locoscript, imprimante, 
plein de nouveaux mots, de nouveaux concepts que 
seul le manuel allait pouvoir éclaircir... 


Mises devant les faits, elles eurent à prendre le 
taureau par les cornes en s'organisant au mieux pour 
profiter des nombreuses ressources de la machine et 
comme elles le disent fort judicieusement : « Il a bien 
fallu qu'on se débrouille... ». 


Ainsi, armées de patience, elles mirent en place une 
organisation rationnelle pour le traitement des dossiers 
et plus particulièrement de l'importante correspon- 
dance qu'un tel service exige. 


Répartis sur deux faces de leur disquette, elles 
s'organisèrent de la façon suivante : 


Face A : Sous la forme de modèle de base vierge 
(MODELE.STD) servant de support, cette face contient 
les différents courriers types relatifs au suivi des 
malades, aux demandes d'informations complémen- 
taires, convocations, demandes de rendez-vous, etc. 


Face B : utilisant des modèles types (comme la face 
À), cette face est entièrement consacrée à la rédaction 
des comptes rendus. Séparées en groupes distinct, les 
différentes parties concernées ont leur propre modèle 
de base qu'il suffit de remplir dans les espaces prévus 
à cet effet. Les groupes se répartissent comme cela : 
Crâne, thorax, abdomen, rachis, infiltration et divers. 


Cette organisation allait enfin permettre une édition 
beaucoup plus performante de l'ensemble des 
documents du service. Plus de formulaires à imprimer, 
plus de perte de temps à régler le positionnement des 
lettres types dans la machine à écrire mais au 
contraire, une édition parfaite des informations 
propres à chaque cas mis directement dans les textes 
déjà mémorisés. 


Pour accroître l'efficacité de cette organisation et plus 
particulièrement l'archivage dans le temps, chaque 
disquette fut volontairement limitée aux documents 
d'une semaine. S'il est vrai, avouent-elles, que les 
disquettes ne sont jamais remplies, la recherche de 
documents s’en trouve nettement facilitée et pour un 
coût fort raisonnable : soit 30 F HT par disquette, le 
budget annuel est approximativement de 1.500 F HT. 


Et le rendement dans tout cela ? Les chiffres sont 
éloquents ; installés en Avril 86, les PCW ont permis 
de traiter beaucoup plus de dossiers et les statistiques 
sont nettes : 
Nombre de consultations 1985 : 4.000 

1986 : 5.000 


Soit 25% d'augmentation pour 8 mois de présence ! 
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Simone avoue : ‘mes disquettes ne sont jamais pleines..." 


En tenant compte du prix de chaque consultation 
(environ 1.000 F) puis en faisant le rapprochement avec 
l'investissement total (2 machines complètes pour 
environ 14.000 F HT) on perçoit immédiatement la 
rentabilité d'un tel choix... 


Non content d'exploiter au mieux les ressources du 
traitement de texte fourni d'origine, le service scanner 
s'est rapidement tourné vers les puissantes possibilités 
de calculs et de graphisme du PCW. Confiés à Jean- 
Yves PHILIPPE, manipulateur dans le service, nombre 
de résultats ont été savamment décortiqués en vue 
d'en tirer les enseignements indispensables à 
l'optimisation de la gestion et plus particulièrement à 
l'amélioration du service rendu. Ainsi, comparant 
chiffres et diagrammes (obtenus par MULTIPLAN et 
DR GRAPH) le service a pu déterminer l'utilisation 
globale du scanner pour mettre en place une véritable 
gestion prévisionnelle permettant, en outre, d'attribuer 
les rendez-vous en organisant un planning de 
consultation en fonction des services spécialisés 
demandeurs. 


Si l'ordinateur a permis d'’alléger la tâche quotidienne 
en offrant une qualité accrue des informations 
collectées et émises, il a aussi permis d'épauler 
sérieusement les décideurs et plus particulièrement 
au niveau des rapports d'activités qui sont légion dans 
ce type d'institution. Parfaitement imprimés, 
accompagnés de statistiques précises et mises en 
graphes, ils laissent clairement entrevoir avec quelle 
aisance toutes discussions purent être facilitées dans 
cet esprit de rationnalisation qui conduit chaque 
entreprise moderne. 


La conclusion s'impose d'elle même; à tous les 
niveaux, la ptésence du PCW s'est avérée positive. 
Facilité d'utilisation, qualité du travail fourni et du 
service rendu, organisation administrative, emploi du 
temps, dialogue avec tous les intervenants, rentabilité 
du service et de son personnel, chaque élément de 
ce mécanisme de précision peut tirer le meilleur parti 
du progrès et à quel coût ! 


Est-il utile d'ajouter que l'expérience fait des émules.…. 
le service gastro entérologie, le service pédiatrie, le 
service orthopédique et bien d'autres encore viennent 
de craquer pour le PCW ??? 


Patrick Huber & Gilles Probst 


; REPORTAGE 


LES PLUS 
DE CP/M 


Plus plus plus, il est vraiment plus notre 
CP/M... En utilisant journellement, pour 
des opérations aussi diverses qu'’indis- 
pensables, on s'aperçoit que le CP/M est 
truffé de petits trucs très simples et 
vraiment pratiques. 


Avant toute chose et pour vérifier chaque 
nouveau truc que je vais décrire, il est 
préférable de lancer CP/M et de laisser la 
disquette système dans le lecteur A. 
Eteignez l'ordinateur, insérez la disquette 
CP/M, face 2 vers l'écran et attendez 
l'apparition du caractère d'attente A) pour 
aller plus avant dans notre exposé... 


ORDRES MULTIPLES 


Le premier de ces trucs concerne la possibilité de donner 
plusieurs ordres en simultané sans avoir à retaper chaque 
séquence. 


Cet avantage s'obtient aisément en séparant chaque 
ordre par un point d'exclamation. 


EXEMPLE : 
DIR*.COMIDIR*.BASIPIP M:=*.BASIPIP M:=BASIC.COM!M:'BASIC RPED [RETURN] 


CP/N Plus Anstrad Consurer Electronics ple 
v 1.4, GX TPA, @ dise drives, SI0/Centronics add-on, 368K drive N: 


fe R #.C0N!D Le PP a =} is IPIP M: EE CON IN: BASIC RPED 
ch GR : MEL LR 
LL L a Ys a ÿ LS NON, 


j N:=# ni: 


RMS 


MPIP M:=BASIC.CON 


ON: 
ROBASIC RPED 
Mal lard- co MSIE with Jetsan 


W 
(c) Cop LA Loconotive So 


ail Br fre reserved 
31597 free bytes 
(| 


Figure 1 


Dans cet exemple nous affichons les fichiers ayant 
l'extension COM puis ceux ayant l'extension BAS et nous 
envoyons sur le lecteur M: (disque virtuel en mémoire) 
les programmes BASIC et RPED puis nous changeons de 
lecteur et lançons RPED. 


Cette procédure est souvent très pratique et plus 
particulièrement quand on doit répéter les mêmes 
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séquences d'ordre CP/M en devant les modifier sur 
quelques détails. Ceci m'amène tout naturellement à vous 
apprendre qu'il n'est pas toujours utile de retaper une 
instruction qui vient d'être effectuée. 


REPETITION D'ORDRE 


Reprenons l'exemple avec une séquence différente : 


EXEMPLE : le CP/M vient d'être mis en route et l'écran 
affiche A) 


Tapons : DIR*.COM!PIP M:=A:DIR.COM [RETURN] 


Les deux instructions sont effectuées. Voulant refaire la 
même procédure avec le programme RPED et n'ayant 
pas envie de tout retaper, CP/M me propose de 
réafficher l'ensemble par l'utilisation de [ALT]+[W] 
(pressées ensemble) voire plus court encore : [COPY] 


Ceci fait, ma séquence s'affiche et je peux la modifier en 
utilisant les touches d'édition habituelles. 


DES FICHIERS ASCII SANS EDITEUR 


Comme nous avons eu l'occasion de nous en rendre 
compte un fichier nommé PROFILE.SUB permet au CP/M 
de lancer dès son démarrage une suite d'instructions que 
nous aurions normalement dû taper. Ceci n'est possible 
que si le programme SUBMIT.COM se trouve sur la 
disquette système sur laquelle se trouve CP/M. 


Cette particularité du système d'exploitation permet une 
économie de temps importante que nous allons encore 
accroître. Voyons d'abord comment cela opère. 


1 — Avant de vous donner la main (ou d'afficher A} si 
vous préférez) il vérifie qu'un fichier PROFILE. SUB se 
trouve sur la même disquette que lui. 

2 — Si c'est le cas, CP/M charge alors SUBMIT.COM 
d'exécuter une à une toutes les instructions contenues 
dans le fichier PROFILE.SUB. 


EXEMPLE : notre fichier PROFILE.SUB doit servir à faire 
passer automatiquement les programmes BASIC.COM, 
PIP.COM et DIR.COM de A: sur M: 


Donc il contiendra la séquence suivante : 


PIP 
M:=BASIC.COM 
<M:=PIP.COM 
<M:=DIR.COM 
€ 


Le symbole « (plus petit que) évite la répétition de PIP 
qui, par cette méthode, est chargé en mémoire centrale, 
effectue chaque transfert et disparaît à la rencontre de 
{ seul. 


Vous convenez avec moi que l'emploi de PROFILE. SUB 
peut nous éviter d'inutiles efforts et mieux encore : toute 
omission. 


PROFILE.SUB peut être créé sans l'emploi d'un 
quelconque éditeur par l'emploi adapté du sauveur des 
plus paresseux, j'ai nommé PIP (toujours lui !). 


L'idée est simple et efficace ; elle demande lors de 
l'exécution de ce qui va suivre une attention particulière. 
En effet, PIP est capable d'envoyer dans un fichier ASCII 
tout ce que l'on tape au clavier, il suffit de lui demander 
gentiment par : PIP PROFILE. SUB = CON: [RETURN] qui 
signifie en clair : 


LES PLUS DE CP/M 


Tout ce que je vais taper sur ma console (CON:) doit se 
retrouver béatement et littéralement dans le fichier que 
j'ai envie d'appeler PROFILE. SUB pour que CP/M puisse 
faire quelque chose avec... Je vous avoue qu'avec un 
autre nom de fichier tout ce que je vais décrire reste 
identique (TOTO.ASC ou ESSAI. ECO par exemple). 
Malheureusement CP/M n'accorde pas à TOTO le 
privilège d'être exécuté automatiquement comme l'est 
PROFILE.SUB. 


Mais gare ! Tout ce que vous tapez après l'ordre, ci- 
dessus, est ajouté à la queue leu leu, au fichier 
PROFILE.SUB. Il faut donc respecter les points suivants : 


Le passage à la ligne s'obtient par [ALT] +[J] et[RETURN]. 
La fin de la saisie est indiquée par [ALT]+[2] et non par 
[STOP] ou [ALT]+[C] 


EXEMPLE : 


PIP PROFILE.SUB = CON: [RETURN] 
PIP M:=BASIC.COM:[ALTIDJIRETURN] 
M:{ALTIUJIRETURN] 

BASIC Y{[ALTIDIIRETURNI[ALT][Z] 


LESC D 


SIC 


Tapons.…. 


le tour est joué et pour le 
vérifier rien de meilleur 
que : 

TYPE PROFILE.SUB [RETURN] 
Comme l'indique la figure 
2, le fichier PROFILE.SUB 
contient notre séquence... 


LC y 
LA 





Figure 2 


PLUS FORT AVEC PROFILE.SUB 


Maintenant, j'aborde le domaine des suppositions 
gratuites mais néanmoins pédagogiques. je suppose : 
« Ah, enfer et damnation, j'ai omis l'indispensable copie 
de PIP dans mon fichier PROFILE.SUB..». je me 
sermonne et me raisonne car PIP encore vient me sauver 
et par une subtile manipulation, je découvre qu'il accepte 
ajout devant, ajout derrière sans exiger de rançons 
abusives ! 


EXEMPLE : 


INSERTION : 
PIP PROFILE.SUB=CON:, PROFILE.SUB [RETURN] 
PIP M:=A:PIP.COMIALTIDJRETURNI[ALT][2] 


AJOUT : 

PIP PROFILE.SUB = PROFILE.SUB,CON: [RETURN] 
N'importe quoi [ALTJJJIRETURN][ALT][Z] 
VERIFICATION : 


TYPE PROFILE.SUB [RETURN] qui donne à l'écran ce que 
la figure 3 daigne donner sur papier... 
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.SUB=CON : , PROFILE . SUB 


@PIP PROF 
CN 


PIP M:=A:P 


DE 


. 





Figure 3 


Percevant avec délectation vos regards éclairés par cette 
nouvelle puissance qui vient de s'offrir sans la moindre 
réticence, je ne peux m'empêcher de vous révéler un 
dernier point dont vous ne pourrez plus vous passer (je 
me demande si l'informatique n'est pas à classer dans la 
catégorie drogue dure l). 


PERSONNALISER LES FICHIERS SUB 


Question : Pourquoi un fichier de commande doit-il porter 
l'extension SUB ? 


Réponse : Pour que SUBMIT.COM qui est le seul 
programme capable de remplacer les index fatigués 
puisse l'exécuter. 


Question : Puis-je avoir plusieurs fichiers SUB sur une 
même disquette ? 


Réponse : Oui 


Question : Quelle est la différence entre PROFILE.SUB 
et tous les autres fichiers portant l'extension SUB (ex : 
TOTO.SUB, PLUS.SUB ou même SUB.SUB) 


Réponse : Une seule mais de taille, PROFILE.SUB est le 
seul fichier de commande que SUBMIT exécute 
automatiquement lors du départ de CP/M. Pour les 
autres, il faut travailler un minimum en tapant : SUBMIT 


XXXX.SUB [RETURN] (XXXX nom du fichier). 


Question : Malgré le choix d'un titre mnémoniquement 
évocateur dans un contexte précambriennement vertical 
comment puis-je personnaliser efficacement un fichier 
SUB sans risquer de traumatiser la genèse spontanée du 
germe CPméniste ? 


Réponse : Hum, hum, lisez donc ce qui suit... 


SUBMIT.COM, l'exécutant fidèle et dévoué des 
commandes contenues dans un fichier à extension SUB 
accepte les commentaires à la seule condition qu'ils soient 
précédés du signe point virgule abrégé :. 


EXEMPLE : 


PIP TOTO.SUB=CON: [RETURN] 
;ZERO + ZERO =LA TETE A TOTO [ALTJUJIRETURN] 
DIR*.*{ALTIUIRETURNIIALT][Z] 


L'exécution par SUBMIT TOTO [RETURN] donnera 
exactement ce que décrit la figure 4 qui vient à point pour 
un au revoir encore plus déchirant. 


Marc HERMION 


. LES PLUS DE CP/M 





LES PLUS D’EXBASIC 


Non content d’un graphisme haute résolution de qualité, vous avez décidé d'afficher votre bouille 
débonnaire en guise de présentation de programme. Un petit clin d'œil aux utilisateurs et votre 
image inscrite, en pixels flamboyants, sur l'écran de la gloire feront, de ce plus 

d'exbasic, un élément supplémentaire à votre plaisir quotidien. 





Que ce soit le stylo optique, la souris ou le La temporisation peut 
digitaliseur, chaque image sauvée par l'un des être gérée par un petit 
enfants d’Electric Studio peut totalement être sous programme de 
récupérée par EXBASIC qui, nanti de ses puissantes boucle dont il suffira de 
fonctions graphiques, ouvre au Basic Mallard les changer la valeur pour 
portes, que dis-je, les pont-levis des meilleures faire varier l'attente entre chaque image. 


présentations graphiques. 


Alors munis d'EXBASIC et des 
fichiers de l’un des trois outils cités 
plus haut, comment allez-vous 
procéder ? 


Easy ! 2 fonctions EXBASIC sont 
requises. La première met l'écran en 
inversion vidéo et la seconde charge 
le fichier se trouvant sur la disquette. 


Une précision importante est à noter 
et concerne la formulation du nom 
du fichier à charger. En effet, si ce 
dernier a été sauvegardé sans exten- 
sion, il faudra lui ajouter un point 
dans la formulation de l'instruction 
EXBASIC. 


L'exemple ci-dessous a précisément 
cette particularité. 





S PRINT “i+PAPER." 
3 FE 1 eu CRIE.) 
PROGRAMMES 
HIGH Voilà maintenant les premières productions du 
Notez que pour éviter un décrochement de l'image fanclub d'EXBASIC, le premier est un petit exemple 
lors de l'affichage de la dernière ligne, il faut faire de tracé d’ellipse suivi par un essai de sinusoïde 
suivre l'ordre d'un point virgule (figure 1). réalisé d’une main experte par Pierre JOUVENOT. 


Enfin, l'affichage, en boucle temporisée, reste tota- 
lement possible et sera plus rapide encore si les 
fichiers d'images sont mémorisés en M : 


Tapez et essayez... 


Pour terminer ce plus à vocation hautement 
Donc, avec M : = 112 ko (5 images) pédagogique, Philippe CAVIGLIOLI nous propose 
M : = 368 ko (16 images) une petite démonstration accompagnée d'un 
commentaire très judicieux : « À noter qu'EXBASIC 

 "j+PAPER." mesure les abscisses (X) de gauche à droite et les 
de HT HUM onrssaus ro :"cuncmgur INAGE 1 ordonnées (Y) de haut en bas ». 


T Qi HDAD. CNESSALE.PIC)" : "CHARGEMENT IMAGE € 
Nous félicitons nos lecteurs pour leur collaboration 





CH ; AL 
FL Fe pm CHARGEMENT IMAGE 3 remarquablement active qui dévoile à tous les 
= :IF A$()"" THEN 10 ELSK END i i i PE 
10 4000:NEXT RETURN: TEMPÜRISATION passionnés un avenir ensoleillé pour leur PCW É 
Figure 2 Germain DELALANDE 
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Figure 3 


70 PRINT “ipiot.", té 


‘Q servira 


120 EXT 
130 PRINT ES 


n DRAV 
: nrta/2)00 T 


re 
Oo 


00), (- 


nt 


y+128); 220 PR 


y qui doit passer alter 
a pair © À 


etère d' le pas de 8 
repèr gd'abscisses 
Figure 


pour tracer: 


MEN y=190: 


or, conmentail 


, 
» b 


jmplifier J'écriture/i 
i-$L kgs" i-CUR 


nativenent de 
y impair (ligne 100); 


des chiffres repères g'abscisses 
re TEE 


7 


e ligne 50) 








Figure 8 
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G.S.X. ET D.A.0. 


Extension graphique typiquement CP/M, GSX ne se laisse pas amadouer si facilement. 
De nombreuses fonctions, théoriquement disponibles, sont totalement inaccessibles 
pour des raisons qui m'échappent encore maintenant. Quoiqu'il en soit, le GSX 
n'est pas totalement muet et, en exploitant au maximum les fonctions qu'il daignait 
faire marcher convenablement, j'ai mis au point un programme de D.A.0. en basic Mallard. 
S'il n’a pas la prétention d’être parfait, il a l’avantage de fonctionner et comme une première 
pierre à l'édifice, il pourra devenir un support idéal à toute amélioration. 


1. CONCEPTION GENERALE 


GSXDAO gère et sauvegarde sur disque un dessin 
sous la forme d'une succession de fichiers séquen- 


tiels correspondant 
chacun à un module 
de ce dessin. (Cette 
méthode limite d'ail- 
leurs le nombre de 
modules sauvegarda- 
bles). À ce propos, la 
première améliora- 
tion pourrait bien être 
une sauvegarde à 
l'aide de fichiers à 
accès aléatoire... 


Les modules dans 
leur unité représen- 
tent un ensemble gra- 
phique cohérent et 
continu qui peut être : 


UNE LIGNE : 
Ligne brisée de 
1 à 32 sommets 


UN POLYNOME 
MARQUE : 

Ligne brisée de 

1 à 32 sommets dont 
seuls les sommets 
sont marqués. 


UN POLYGONE : 


Figure fermée de 1 à 
82 sommets. 


DISAUETTE 3 POUCES 


! 


0 
\ 
| 


VUE DE DESSUS 


en bas à gauche). 


UN TEXTE : 30 caractères maximum. 


UN ARC DE CERCLE 


UN CERCLE 


Chaque fichier porte le nom générique du dessin 
par l'utilisateur suivi d'une extension précisant le 
numéro d'ordre du module. La numérotation de ces 


modules est gérée par le programme. 


Exemple : le fichier « DEMO » se trouvera présent 
sur un disque sous la forme des fichiers suivants : 


DEMO.GSX, fichier vide précisant simplement au 


système que ce dessin existe sur le disque. 
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DEMO. 1 
DEMO. 2 second module 
DEMO. NN module nn 


premier module 


2. MODE 
OPERATOIRE : 


Rassembler sur une 
disquette, les fichiers 
suivants : 


Le système CP/M 
J12FCPM3.EMS 
ou J14FCPM3.EMS 


Le programme de 
lancement de fichiers 
SUBMIT.COM 


Le basic Mallard 
BASIC.COM 


Le générateur de 
basic GSX 
GENGRAF.COM 


Un fichier de lance- 
ment automatique 
PROFILE.SUB 


Les fichiers GSX 
ASSIGN.SYS 
GSX.SYS 
DDFXHR8.PRL 
DDSCREEN.PRL 


fichier: 


eo 5 


f 
À 
1 
Î 
4 


em ARS ARE UE Te LENS 


— E mime 


1 
1 éCOPY) 
IEXID) 


Créer un fichier PROFILE.SUB qui contiendra le 
nom du programme basic joint en annexe et obtenu 
comme cela : 


PIP PROFILE.SUB = CON:[RETURN] 
GSXDAO([ALTIDIIRETURNI[ALT][2] 


Générer un Basic GSX comme suit : 

GENGRAF BASIC [RETURN] 

Dès lors que tous les fichiers sont présents et que 
PROFILE SUB et le BASIC GSX est fait, la disquette 
est autochargeable et se lance automatique à 


l'allumage de l'ordinateur ou si le CP/M est déjà 
en place par : 


SUBMIT PROFILE [RETURN] 


PROGRAMMATION 


Le chargement terminé, le premier écran du pro- 
gramme affiche la liste des fichiers dessins éven- 
tuellement présents sur le disque et propose le 
menu suivant : 

Autre disque - Travail sur ce disque - Destruction - Quitter 


- Option À : changer le disque et taper A. Le pro- 
gramme est alors relancé. 


- Option T : le système demande le titre du dessin 
sur lequel on veut travailler. S'il existe sur le dis- 
que, il passe à l'écran de travail. Sinon, il propose 
auparavant de le créer. 


- Option D : permet d'effacer un dessin sur un 
disque. 


- Option Q : rétablit les paramètres de l'écran et sort 
du programme. Le programme est sous mode 
«option run». Un 
appui sur la touche 
STOP peut toutefois 
arrêter le programme 
à chaque fois que l'uti- 
lisateur à la main au 
niveau de l'écran de 
travail. Avant arrêt, le 
programme réinitialise 
les paramètres d'affi- 
chage. 


3. ECRAN DE 
TRAVAIL : 


Il se compose de la 
page sur laquelle on va 
dessiner et d'un ban- 
deau d'informations et 


- Les coordonnées xd et yd du dernier sommet 
validé ; 

- Les coordonnées xa et ya en cours de tracer ; 

- La dimension ad (en mm) du segment en cours de 
tracer ; 

- Le menu des fonctions. 


4. LES FONCTIONS DE GSXPCVW : 


Toutes les initiales apparaissant en majuscules dans 
le bandeau d'informations et d'instructions (à 
l'exception du nom du fichier) donnent accès à une 
fonction de GSXPCW. En voici le détail : 

- Ligne : trace une ligne entre les sommets. 

- Marque : efface la ligne, marque les sommets. 
- Pjolygone : referme la figure si elle a plus de deux 
sommets. Les différents polygones seront affichés, 
superposés les uns sur 
les autres, à l'écran. 
Cette « tranparence » ne 
se verra pas à l'impres- 
sion puisque les polygo- 
nes y seront tramés (voir 
plus loin). Dans le cas de 
polygones superposés 
et diversement tramés, 
il faut veiller à l'ordre 
dans lequel le pro- 
gramme aura à les 
tracer. 


- (Dexte : saisit un texte 
et l'affiche à l'emplace- 
ment du curseur. Un 
seul sommet doit être 
validé. L'envoi d'un 
texte vide annule la 
fonction texte. 





d'instruction. La ligne 
supérieure de l'écran 
est réservée à certaines 
instructions particuliè- 
res. 


La page de dessin est 
un rectangle vertical 
dont les proportions cor- 
respondent aux dimen- 
sions maximales du dessin tel qu'il pourra être 
imprimé (180 mmx223 mm). 


Après affichage de cet écran, le programme lit, s'ils 
existent, les fichiers du dessin demandé sur le dis- 
que À, les affiche et les transfère sur le disque M 
sur lequel l'essentiel du travail s'effectuera, pour 
plus de rapidité dans la lecture et l'écriture des 
fichiers. 


Le bandeau de gauche indique en permanence : 


- Le nom du fichier-dessin ; 

- Le numéro du module en cours de travail et le 
nombre total de modules de ce fichier ; 

- Le nombre de sommets du module en cours de 
travail ; 

- le type du module en cours de travail (indiqué en 
sur-brillance) ; 

- L'unité de déplacement du curseur (en mm); 
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-(A)rc : deux sommets 
doivent être validés , ce 
seront les extrémités de 
l'arc. Le système de- 
mande le rayon de l'arc 
(qui doit être compris 
entre la moitié de la 
corde et la valeur max:i- 
male de 223 mm). Il demande ensuite si l'arc doit 
être supérieur ou inférieur à 180° puis le trace dans 
le sens trigonométrique (sens inverse des aiguilles 
d'une montre). L'envoi d'un réponse vide lors de 
la demande de rayon provoque le traçage d'un 
demi-cercle entre les deux sommets. 


- (Cercle : deux sommets doivent être validés. Le 
premier est un point de la circonférence, le second 
le centre du cercle. 


N.B. : - Après le traçage ou la lecture d'un texte, 
d'un arc ou d'un cercle, le programme, avant de 
continuer, demande s'il faut sauvegarder ou effa- 
cer le texte, l'arc ou le cercle. 


- Arcs et cercles peuvent être tracés dans les 
divers types de lignes prévues. Il suffit pour cela, 
avant de demander la fonction Arc ou Cercle, de 
mettre le programme en mode Ligne (visualisant 


PROGRAMMATION 


ainsi la corde ou le rayon selon que l'on prévoit un 
arc ou cercle) et d'agir sur les touches ou[-] 
(voir plus loin) jusqu'à mettre l'indicateur sur le type 
de ligne désiré. Le type de traçage de l'arc ou du 
cercle ne sera toutefois évident qu'à l'impression. 


- (Unit : permet de modifier l'unité de déplacement 
du curseur dans les limites de 1 mm à 100 mm. 


- (Ka : permet de modifier la position X du curseur 
dans les limites de 0 mm à 180 mm. 


- Ma : permet de modifier la position Y du curseur 
dans les limites de 0 mm à 223 mm. 


- (Valider : valide un sommet à la position du cur- 
seur. Le nombre de sommets à l'affichage est 
incrémenté de 1 (32 
sommets maximum). 


- (G)ommer : invalide le 
dernier sommet tracé et 
décrémente le nombre 
de sommets à l'affi- 
chage de I. 


- (Shauve : sauvegarde le 
module sur le disque M. 
Si un module portant le 
numéro suivant existe, 
le programme le lit et 


Si l'ensemble des fichiers concernant le dessin était 
déjà présent sur À, le programme détruit les numé- 
ros de fichiers éventuellement en excédent sur le 
disque A. 


- Dnsère : permet d'insérer un module entre deux 
modules existants. Le module prend le numéro en 
cours, les suivants sont automatiquement 
renommés, 


- (Echange : permet d'échanger les numéros de 
deux modules, donc l'ordre dans lequel ils seront 
tracés (important pour les traçages sur imprimante). 


- [CAN] : efface le module de l'écran. S'il s'agit d'un 
module qui a déjà été sauvegardé, cette option ne 
le détruira toutefois pas en M. Pour le détruire sur 
le disque M. il faut, 
après avoir tapé [CAN], 
taper S. Le programme 
l'efface et renomme 
éventuellement les 
fichiers suivants pour 
éviter d'avoir des numé- 
ros de fichiers vides. 


- [COPY]: trace le des- 
sin sur imprimante, 
détruit le fichier en M et 
relance le programme à 





l'affiche. On peut alors 
travailler dessus. Pour 
passer outre, taper S à 
nouveau. 


- (Rhelire : réaffiche la 
succession des modules 
depuis le premier. Pos- 
sibilité d'interrompre la 
relecture pour travailler 
sur un module donné. 
En cours de traçage, les 
différents déplacements 
du tracé finissent par 
effacer partiellement le 
dessin à l'écran. Cette 
option permet de 
«nettoyer » l'écran de temps en temps pour avoir 
toujours le traçage le plus net possible. C'est éga- 
lement la seule manière de corriger ou d'effacer 
un module déjà sauvegardé. 


- Djisc M) À: trans- 
fère les fichiers du 
disque M vers le dis- 
que À pour sauve- 
garde définitive (à 
faire avant l'impres- 
sion). 
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son début. 


- [EXIT] : relance le pro- 
gramme après destruc- 
tion du fichier en M. 


- et [=]; modifient 
les paramètres de tra- 
çage des lignes, mar- 
ques et polygones. Le 
type de traçage est indi- 
qué en sur-brillance 
dans le bandeau. 6 
types de lignes (la der- 
nière n'est visible qu'à 
l'impression). 5 types de 
marqueurs (visibles seu- 
lement à l'écran). 6 types de grisés (G/1 à G/6 et 
6 types de hachures (H/1 à H/6) pour les polygo- 
nes. Les grisés et les hachures n'apparaïîssent qu'à 
l'impression. Pour les différents types de lignes, de 
marqueurs et de remplissage, se référer au manuel, 
volume |], page 55 du chapitre sur CP/M. 


+ 
fe 




















- Les quatre flèches permettent de déplacer le cur- 
seur et de dessiner, (En fait, il n'y a pas à propre- 
ment parler de curseur. Le point en déplacement 
part toujours du dernier sommet validé, y compris 
dans un module en relecture. Il faut se référer au 
bandeau d'information qui indique sa position en X 
et Y.). 


Gérard SIRHUGUES D 


PROGRAMMATION 


1 REM DRUNRENNRNRENNENRINNNNRTTÉTNNNENEE 

2 REM 4 DESSIN TECHNIQUE SOUS 65X t 

3 REMY Auteur : Gérard SIRHUGUES C 

4 REMY (c) L'ECHO DU PCW 87 t 

S REM GRRENR ENT dTTIATENttIIETTIt 

19 ESCS=CHRS (27) :CLS$=ESCS+"E"+ESCS+"H": BIB$=CHRS (7) :ENR$=ESCS 
+" Vs DESENRS=ESCS+"n":H$SESCS+"H" : GPS=HS+SPACES (79) +H$ 

28 VIDINVS=ESCS+"p": VIDNORS=ESCS+"q" : EFCURSS=ESCS+ "4": AFCURS#= 
ESC$+"e" 

25 DEF FNWINDS(1,c,h,u)=ESC$+"n"+ESC$+"X"+CHRS (3241) +CHR$ (324€ 
D+CHRS (324h)+CHRS (3 14m) +ESCS+"H": DEF FALOCS(1,c,t$)=ESC$+"V"+C 
HR$(32+] 

)+CHRS(32+c) +t$ 

39 DEF FNWLS=FNNINDS (9,9,32,99):DEF FNW2$=FNNINDS (9,82,32,8):C 
$=ESCS+" y" +CLS$+ENRS+VIDNORS+AFCURSS 

35 PRINT ESC$: "9"; C$: 2: WIDTH 255,253 

48 OPTION RUN: OPTION FILES "A":G0SUB 39899:PRM=1:GOSUB 39198 
199 ? 

119 NIDTH 255,255:PRINT FNNIS:ENRS; CLS$: STRINGS (99, "-") ;FNLOCS 
(U,M,"DESSIN TECHNIGUE"):PRINT STRINGS(99,"-"); 
FNNINDS ( 

4,9,28,98);CLS$;FNLOCS (1,8, "Fichiers dessins présents sur ce d 
isque :"):PRINT ENR$:OPTION FILES "A" 

129 N=N+L:NS=FINDS ("4 GSX",N): IF N$="" THEN 138 ELSE PRINT MID 
SINS,1,LEN(NS)-4)5" "s:60TO 128 

139 PRINT DESENRS: EFCURS$; FNLOCS (26,9, SPACES 198) ) ; FNLOCS (26,12 
"Autre disque - Travail sur ce disque - Destruction - Quitter 


="TGDA":GO0SUB 19890:0N I GOSUB 499, 159,299: RUN 

149 END 

159 OPTION STOP:WIDTH 99,98:PRINT C$: : END 

288 PRINT FNLOCS (25,8, "Destruction d’un fichier.")::GOSUB 369: 

Fé=TS+" AU IF FINDS(F$)="" THEN PRINT BIB$3 :RUN 

218 PRINT FNLOCS (27,8, "confirmer la destruction (0/N)");:CNT$= 

"ON" :G0SUB 19999:1F 1=2 THEN RUN ELSE KILL F$:RUN 

300 PRINT AFCURS$; FNLOCS (26,9, SPACES (98) ) ;FNLOCS (26,9,"Titre d 

u fichier-dessin : ")3:LINE INPUT: TS: PRINT EFCURS$::IF T$="" T 

HEN RUN 

ELSE IF LEN (7$))8 THEN 399 ELSE T$=UPPERS(T$) : RETURN 

499 PRINT FNLOC$ (25,8, "Travail sur ce disque.");:G60SUB 399 

419 F$2T$+" CSA": IF FINDS(F$)C)"" THEN 599 

429 PRINT FNLOCS (27,8, SPACES (98) ) ;FNLOCS (27,8, "Fichier inexist 

ant, Création ? (O/N)");:CNT$="ON":GOSUB 19999:IF 1=2 THEN RUN 

439 OPTION FILES "A":0PEN "O",1,F$:WRITE #1,T$: CLOSE 

449 OPTION FILES "M':QPEN "O",1,F$:URITE #1,T$:CLOSE 

599 DATA 6,17,15,7,29,18,9,25,23,8,22,8,6,17,15,6,17, 19:RESTOR 

E S99:FOR N=1 TO 6:READ TN) ,CCIN),CTINI:NEXT 

518 DIM TT$(6,12) 

528 DATA "Ligne",6, "Marque ",5,"Plg. ",12,"Texte ",9,"Arc 
",8,"Cercle ",8:FOR N=1 TO B:READ TT$(N, 8), TLIM(N):NEXT 

530 DATA ,,+,4,0,%,6/1,6/2,6/3,6/4,6/5,6/6,H/1,H/2,H/3,H/4,H/5 

,H/6:FOR N=1 TO SEREAD TT$(2,N):NEXT:FOR N=1 TO 12:READ TTS(3, 

NI: NEXT 

348 DATA 154,154,154,152,152,192,144,144,144,144,154,144,154,3 

2,154,152,144,144:F0R N=1 TO 6:READ A,B,C:TT$(,N) =CHRS (A) +CHR 

$(8)+CHR 

$(C):NEXT 

559 COS(1)="xd = "CDS (2)="yd = “:CD$(3)=" {a = ":CD$(4)="Va = 

M PTS=STRINGS (8, "-"] 

569 XP=199:VP=137:PI23,.1416 

699 PRINT FAWI$:CLS$:EFCURS$::FOR N=ÿ 

CHRS(133)) 52 NEXT: PRINT FNW2$:: FOR N=1 

2 

6ig PRINT “fichiers ":PRINT T$:PRINT PTS:PRINT “module: ":PRINT: 

PRINT PTS: PRINT "nb snts:": PRINT: PRINT PT$:FOR N=i TO 6:PRINT 


TO 32:PRINT FNLOCSN, 81, 
TO &:PT(NI21:NEXT:PT(2)= 


TT$(N, 8) 

à TTSN,PTIN)) NET: PRINT PTS:PRINT "Unit: 19":FOR N=1 TO 4:PRI 
NT CD$(N);" SG'eNEXT: PRINT "da =  ÿ" 

625 PRINT “Valider":PRINT "Gonmer":PRINT "Sauver ":PRINT "Relir 
e":PRINT "Disc ma":PRINT "Insérer ":PRINT "Echanger ":PRINT "€C 
AN)":PRI 

NT "<COPY)": PRINT "<EXIT)"s: PRINT FNW1S; 

638 PRINT "Transfert du fichier de À vers M en cours... ";:DS$= 
"A":DD$="M": TRSF=1: 60SUB 21909: PRINT SP$: 

990 GOSUB 15498: CNT$="LMPTACUXV"+CHRS (31) +CHRS (6) +CHRS (30) +CHR 

$CLI+CHRS (22) +CHRS (28) +" VG"+CHRS (8) +"SRDIE"+CHRS (23) +CHR$ (27) + 
CHR$ (3) 

919 6OSUB 19908:G0SUB 15588:0N I! GOSUB 1980,1889,1999,1199,120 
9,1300,1609,1708,1800,2000, 2100, 2200, 2300, 2500, 2600,2700, 2866, 
2900, 300 

9,3208,3300,3409,3509, 4009, 5000, 150 

928 60TO 989 

1909 

1919 GOSUB 15190:60SUB 29908:T=1:GOSUB 15300:60SUB 15408: 60SUB 
15280: G60SUB 28988: RETURN 

1199 ’ 

1119 IF NSC>i THEN 1419 ELSE GOSUB 15508: T=1:60SUB 15499:PRINT 
SP$;"Max. 39 car. : "sAFCURS$;:LINE INPUT R$:PRINT SP$;EFCURS 

$stIF R$ 

="" THEN GOSUR 15598:7=2:60SUÛB 15499: G0SUB 15290:00SUB 12740:R 

ETURN 

1129 T=2:G0SUB 15100:60SÛB 12999:7=1:1F LEN(R$))39 THEN PRINT 

BIE$;:60T0 1118 

1130 PS=PS+RS:GOSUB 15288: G0SUB 13290: 60T0 158 

1208 

1219 IF NSC>2 THEN 60TO 1499 ELSE GOSUB 15198:GOSUB 13009:T=2: 

PT(2)=1:G0SUB 15396: GOSUB 15290: COSUB 13029: G0SUB 23008: T=l:PT 
(TI=PT (1 

):G0SUB 15498 

1229 PRINT SP$;"Entrer le rayon (RETURN seul si deni-cercle). 
MiMES$="R= 'ilaÿiC=h6:LI=AT:LS=223: GOSUB 22680: PRINT SP$::IF R 

$="" THE 

N RsAI ELSE R=VAL (R$) 

1230 PS=P$+CHRS(R+32):1F R$="" THEN D23:6070 1259 

1249 PRINT SP$; "Supérieur ou Inférieur à 189 ?"::CNT$="S1":60 

SUB 19909:PRINT SP$;:IF (I=1 AND XACKB) OR (Iz1 AND XA=XB AND 

YA)YB) 0 

R (1=2 AND XA)KB) OR (I=2 AND XA=XB AND YACYB) THEN D=ÿ ELSE D 

sl 

1250 P$=P$S+CHRS (D+32) : GOSUB 15288:PT(S)=PT(1):G0SUB 13290: 60T0 
1509 

1389 

1319 IF NSC>2 THEN GOTO 1499 ELSE GOSUB 15199:G0SUB 13090:7=1: 

PTTI=PT(1):G0SUB 15490: G0SUB 22989: 60SUB 15206: G0SUB 13098: 60 

T0 1598 

1489 ’ 

1419 PRINT BIB;SP$; "Nombre de sonmets incompatible avec ce typ 

e de nodule, taper RETURN';:CNTS=CHRS (13): GOSUB 19888:PRINT SP 

$;:RETUR 

N 

1509 

1519 PRINT SP$; "Sauver ou Effacer ?";:CNT$="SE":GOSUB 18092:PR 

INT SP$;:GO0SUB 15588:1F 1=1 THEN 3609 ELSE GOSUB 15198: 60SUB 1 

3900 

1929 IF T=4 THEN P$=MIDS(P$, 1,2) 

1539 IF T=5 THEN P$=MID$ (PS, 1,4) 

1549 GOSUB 15549:CD (4) =ASC(MIDS (PS, LEN(P#),11)-32:CD(3)=ASC (MI 

D$(P$,LEN(P$)-1,1))-32:CD(1)=CD(3):CD(2:=CD(4): 1=2:PT(1)=2: 722 

sPP$="": 

60T0 1998 


1698 ? 

1619 L=16:C=82:MES$= "Unit: ":LIs1:LS=199:G0SUB 22688: 1F R$="" T 
HEN GOSUB 22260:RETURN 

1628 PAS=VAL (R$) : RETURN 

1708 ? 

1718 L=19:C=82:MES$=CD$ (3):L120:LS=180:60SUB 22699:60SUB 22799 
:C23:60T0 1989 

1899 ? 

1819 L=20:C=82:MES#=CD$ (4):LI=0:LS=223:G0SUB 22608: G60SUB 22798 
:C=4:607T0 1999 

1988 IF R$C)"" THEN CD(C)=VAL (R$) 

1918 GOTO 2498 

2900 

2019 60SUB 22788:CD(4)=CD(4)+PAS: IF CD(4)2223 THEN PRINT BIB$; 
:CD(4)2223 

2928 G0TO 2498 

2188 ’ 

2119 GOSUB 22780:CD(3)=CD(3)+PAS: IF CD(3)>189 THEN PRINT BIB$; 
:CD(3)=189 

2128 G60TO 2499 

2209 ’ 

2218 GOSUB 22709:CD(4)=CD(4)-PAS:IF CD(4)C8 THEN PRINT BIB$3:C 
D(4)2$ 

2228 60TO 2499 

2306 

2319 6OSUB 22768:CD(3)=CD(3)-PAS:IF CD(3)<B THEN PRINT BIB$;:C 
D(3)=$ 

2499 IF NS=8 THEN CD(1)=CD(3):CD(2)#CD(4) 

2419 GOSUB 22208:60SUB 15209:60SUB 12888:RETURN 

2500 ? 

2519 IF T3 THEN PRINT BIB$;:RETURN 

2529 D=1:6070 2639 

2609 ? 

2619 IF T3 THEN PRINT BIB$;:RETURN 

2628 Ds-1 

2630 GOSUB 15188:G0SUB 29000:PT(TI=PT(TI+D: IF PTIT)29 THEN PT( 
Thai ELSE IF PT(T))TLIM(T) THEN PT(T)2TLIM(T) 

2649 GOSUB 15498:60SUB 19290:60SUB 13300: G60SUB 29929:RETURN 
2708 ? 

2718 IF (NSC>8 AND CD(1)=CD(3) AND CD(2)=CD(4)) OR NS)32 THEN 
PRINT BIB$;:RETURN 

2728 PP$=CHRS(CD(S)+32)+CHRS(CD(4)+32) :60SUB 15199: 60SUB 22608 
2739 IF NS=8 THEN P$=PP$ ELSE P$=P$+PPS$ 

2749 NS=NS+1:CD(1)#CD(3):CD(2)=CD(4):60SUB 22200::60SUB 15299: 
6OSUB 13800:RETURN 

2809 

2818 IF NS=9 THEN 2999 ELSE GOSUB 15199:60SUB 13892:G0SUB 1298 
[) 

2829 IF CD(1))CD(3) OR CD(21<)CD(4) THEN CD(3)=CD(1) :CD(4) =CD 
(2):60SUB 22260: 60SUB 15208:60SUB 13900: RETURN 

2839 IF NS=1 THEN 2849 ELSE P$=LEFTS (P$,LEN(P$)-2) :NS=NS-1: CD ( 
4)=2ASCMIDS (PS, LEN(P#),111-32:CD (3) =ASC(MIDS (P$,LEN(P$)-1,1))- 
32:CD(1) 

sCD(3):CD(2)2CD(4):G0SUB 22209: 60SUB 15290:60SUB 13888:RETURN 
2849 P$="":NS=ÿ:Te2:PT(T)22:G0SUB 15298: 60SUB 11999:60SUB 1288 
#:60SUB 22280:RETURN 

2909 

2919 GOSUB 15190:60SUB 29980:G0SUB 2240/:RETURN 

2929 GOSUB 22490:RETURN 

3900 ? 

3919 DD$="M":OPTION FILES "M':1F NS=£ AND FIND$(F$)="" THEN PR 
INT BIB$;:RETURN 

3928 IF NS=$ AND FINDS(F$)C)"" THEN GOSUB 15108:60SUB 12998:KI 
LL F$:NeNUM:NM=NM-1: INS=1:6070 3848 

3938 GOSUB 22188:NUM=NUM+1:60T0 3969 


3948 NUM=NUM+1:F6=T$+", "4STRS (NUM): IF FINDS(F$)="" THEN NUMEN: 
60TO 3968 

3656 FFS=T$+", "+STRS(NUM-L): NAME F$ AS FF$:00T0 3848 

3068 DS$="M":F$=TS+", "+ STRS (NUM): IF FINDS(F$1<)"" THEN GOSUB 2 
2889:G0SUB 22288:60SUB 22389: 60SUB 22888:1F TC4 THEN RETURN EL 
SE GOTO 

1598 

3078 NM=NM+1-INS: INS=9: G0SUB 22400: RETURN 

3208 ? 

3219 DS$="M":ARR=1: TRSF20:PTR=D:60T0 2199 

3308 ’ 

3318 PRINT SP$; "Transfert du fichier de M vers À en cours..."! 
DS$="M": DD$=" A": ARR=D: TRSF=1:G0SUB 21900: 60SUB 22508: PRINT S5P$ 
3 RETURN 

3498 ? 

3418 IF NUMDNM THEN PRINT BIB$; :RETURN 

3428 GOSUB 2998:FOR N=NM TO NUM STEP -1:NAME (T$+", "4STRS(N)) 
AS (TS+","4STRS(N+1) ):NEXT:NM=NM+ 1: G0SUB 22498: INS=1: RETURN 
3508 ? 

3518 PRINT SP$;AFCURS$; "Echanger n° ";:LINE INPUT; MIS: PRINT " 
et n° "ssLINE INPUT; M2$:PRINT EFCURS$; 

3515 IF Mi$="" OR M2$="" THEN PRINT SP$3:RETURN 

3528 IF LEN(M1$))3 OR LEN(M2$)>3 THEN 3559 

3525 CNT$="1234567899":FOR N=1 TO LEN(M1$):1F INSTRICATS,NIDS( 
MI$,N,1))=9 THEN 3559 ELSE NEXT N 

3538 FOR N=1 TO LEN(M2$):1F INSTRICNTS,MID$(M28,N,1))=0 THEN 3 
559 ELSE NEXT N 

3549 OPTION FILES "M":F$=T$+", "4M1$:FF=TS+", "4M28: IF FINDS(FS 
J="" OR FINDS(FF$)="" THEN 3319 ELSE NAME F$ AS "TEMP":NAME FF 
$ AS F$: 
NAME "TEMP" AS FF$:ARR=1:PTR=0: TRSF=0: DS$="M":G0TO 21999 

3559 PRINT BIB$::607T0 3518 
4000 ? 

4085 PRINT SP$; "L’inpression va détruire le fichier en M... Ma 
intenez-vous votre choix ? (O/N)";:CNT$="ON":GOSUB 18888:PRINT 
SP$;:IF 

1=2 THEN RETURN 

4919 PRINT SP$;"Introduire le disque système 651 et taper RETU 
RN"' y :CNTS=CHRS (13): G0SUB 18888:PRINT SP$;:0PTION FILES "A": 1F 
FIND$ (" 

DDFXHRE,.PRL')="" THEN PRINT BIB$;:6070 4918 

4928 XP=161:PRM=21:60SUB 39188: PRINT FNLOCS (8,8, "Lecture du #i 
chier en cours..,");:D5$="M": ARR=D: TRSF=D:PTR=1:GOSUB 21900 
4938 PRINT SP$;"Inpression en cours, patienter, ,";:CONTRLA (1) 
22: CONTRLY (2) 29: CONTRLX (4) =9:60SUB 15980:60T0 5939 
5909 
3919 PRINT SP$;"Le fichier sera détruit en M:.., Maintenez-vou 
s La sortie ? (0/N)";:CNT$="ON":G0SUB 19900: PRINT SP$;: IF 1=2 
THEN RET 
URN 
5938 OPTION FILES "M':F$=7$+", 4": IF FINDS(F$)="" THEN 5049 ELS 
E KILL F$ 
5948 RUN 

18999 ’ 

19919 IS=INKEYS:1F 1$="" THEN 19998 ELSE I=INSTRICNTS,UPPERS(I 
$)):1F [C8 THEN RETURN ELSE PRINT BIB$;:607T0 18888 

11999 

11819 CONTRLA(1)=PRMI: CONTRLX (2) 29: CONTRLA (4) 21: INTINX (1) =PRM2 
:60SUB 15980:RETURN 

12698 ’ 

12919 CONTRLA(1)2T(T):CONTRLE (2) 22: CONTRLX (4)=8:PTSINX(1)=CD(1 
EXP: PTSINX(2)=CD (2) 8VP:PTSINX (3) =CD (3) 8XP:PTSINX (4) =CD (4) 4 YP: 
GOSUB 15 
88: RETURN 

13999 


13919 ON T 6070 13930,13839,13038,13199, 13289, 13208 

13839 CONTRLA (132 T (TI: CONTRLY (2) ENS: CONTRL4 (4)=D:PT=1:FOR Nz1 
TO LEN(P$)-1 STEP 2:PTSINX(PTI= (ASC IMIDS (PS, N, 11-32) AP: PTSIN 
K(PT+i)s= 

(ASCIMIDS (PS, N+1,1))-32)8YP:PT=PT+2:NEXT:GOSUB 15849:RETURN 
13198 CONTRLY(1)ST(T):CONTRL4 (2)=1: CONTRL4 (4)=LEN(P$)-2:PTSINX 
(1)=(ASCIMIDS(PS,1,1))-32) 4XP:PTSINX(2)= (ASC (MIDS (P$,2,1))-32) 
SVP: FOR 

Ns3 TO LEN(PS):INTINLIN-2)=ASC(MIDS (PS, N, 1)1:NEXT: GOSUB 15909: 
RETURN 

13206 ADS=AD:60SUB 13309:1F T=b THEN GOSUB 2299 ELSE GOSUB 23 
600:G0SUB 23198 

13219 FOR A=AD TO AA STEP 8.1:CD(3)=X-(R4COS (A) ):CD(4)=Y-(RÈSI 
N(A))21F AzAD THEN CD(1)=CD(3):CD(2)=CD (4) 

13220 IF CD(31<8 OR CD(3)>189 OR CD(4)€8 DR CD(4)223 THEN 133 
90 

13230 GOSUB 12899:CD(1)=CD(3):CD(2)=CD(4):NEXT A 

13233 IF:Ta=5 THEN CD(3)=XB:CD(4)=YB:GOSUB 12808 

13249 RETURN 

13300 FOR Az=A TO AA STEP 9.1:CD(3)=\-(RICOS (A) ):CD(4)=Y-(RASIN 
(A)14IF (CD(3)>=8 AND CD(3)<=188) AND (CD(4))=8 AND CD(4)<=223 
| THEN À 

D=A:60T0 13218 

13319 NEXT À 

15000 ’ 

19818 CALL 654% (68%,65X%,CONTRLA (1), INTINX (1) ,PTSINX (1), INTOU 
T4 (4), PTSOUTX (1) ) : RETURN 

19198 PRMI=CC(T):PRM2=0:G0SUB 11999:RETURN 

19208 PRMI=CC(T):PRM2=1:608UB 11900:RETURN 

19300 PRMI=CT(T):PRM2=PT(T):GOSUB 11820:RETURN 

13469 PRINT VIDINVS;:G60SUB 15388:PRINT VIDNORS; : RETURN 

19300 PRINT FNLOCS(T+8,82, TT$ CT, D) ) 3 TTST PTIT) 34 IF T)4 THEN 
PRINT FNLOCS(9,87,TT$(1,PT(T))); 

13319 RETURN 

15690 N=9 

19819 NMENM+L:FFS= TS +", M4STRS (NM): IF FINDS(FF#)="" THEN NM=NM- 
L:RETURN 

13628 6070 15619 

28089 IF NS=@ THEN GOSUB 12999 ELSE GOSUB 13890:G0SUB 12998 
29918 RETURN 

21008 * 

21819 NUM=B:PRINT FNWINDS (1,9,31,89) ;CLS$3 CHRS (27) 3 "y" 5 :GOSUB 
15688 

21920 GOSUB 15590: NUMeNUM+1 : F$=T$+", "+STRS (NUM) : OPTION FILES D 
S$:IF FINDS(F$)="" THEN 21198 ELSE GOSUB 22899:1F TRSF=1 THEN 
GOSUB 22 

19 

21939 GOSUB 22209: GO0SUB 22389:1F ARR=9 THEN 219289 

21848 PRINT SP$;"Relecture à poursuivre ? (O/N)"3:CNT$="ON": 60 
SUB 19990:PRINT SP$;:IF I=1 THEN 21929 ELSE GOSUB 22894: 60SUB 
22208 
21859 IF TC4 THEN RETURN ELSE 1589 

21198 GOSUB 22496:RETURN 

22008 ’ 

22918 OPTION FILES DS$:0PEN "1",1,F$2 INPUT #1,NS,T, PTIT) ,PéeCL 
OSE: RETURN 

22190 

22118 OPTION FILES DD$:0PEN "O",1,F$2MRITE #1, NS,T,PTUTI ,P$eCl 
OSE: RETURN 

22288 

22218 PRINT FNNINDS(8,8,32, 98); FNLOCS (4,82, "") 3; USING “###"; NUM 
SPRINT "JS USING HE: NM: PRINT FNLOCS (7,82, "")s; USING "##h"iN 
83 : PRINT 

FNLOCS (16,87, "")3USING "#H#";PAS::FOR N=i TO 4:PRINT FNLOCS(N 
+16,82,CD8(N)) USING "###"; CDN) :NEXT 


22229 PRINT FNLOCS(21,87,"") USING "###"; INTISGR((CD(4)-CD(2)) 

#2+((CD(3)-CD(1))2))}:60SUB 15498: RETURN 

22319 IF (PTR=1 AND T23) THEN 22320 ELSE GOSUB 15290:60SUB 153 

99:60SUB 13989:RETURN 

22329 PRM2=PT(T):N=PRM2:IF PRM2)6 THEN PRM2=3 ELSE PRM222 

22339 PRMI=23:60SUB 11868 

22348 PRM2=N:IF PRM2)4 THEN PRM2=PRM2-b:PRM1=24:60SUB 11998:60 

SUB 13989:RETURN 

22350 PRMI=24:G0SUB 11989: G0SUB 13898: RETURN 

22419 GOSUB 15598: 7=1:PT(1)=1:60SUB 155099: T=3:PT(S)=1:60SUB 15 

598:T=2:PT(2)=2:G0SUB 15499:PAS=18:FOR N=i TO 4:CD(N)=@:NEXTIN 

S=ÿ:P$=" 

"iPP$="":GOSUB 22709:60SUB 15290:G0SUB 15300:60SUB 12998: GO0SUB 
22298:RETURN 

22519 OPTION FILES "A": N=NUM 

22528 FF$=T$+", "4STRS IN): IF FINDS(FF$)="" THEN 22539 ELSE KILL 
F$:N=N+1:607T0 22529 

22539 OPTION FILES "M"2RETURN 

22618 PRINT VIDINVS;FNLOCS (L,C, SPACES (8) ) FNLOCS (L,C,MES$) ; AFC 

URS$::LINE INPUT R$:IF R$="" THEN 22689 ELSE IF LEN(R$)>3 THEN 
22678 

22629 CNT$="1234567899":FO0R N=1 TO LENCRS):IF INSTRICNTS,MIDS( 

R$,N,1))=8 THEN 22679 ELSE NEXT N 

22638 IF VALIR$)<LI OR VAL(RS)>LS THEN 22679 ELSE PRINT EFCURS 
$VIDNORS:FNLOCS (L,C,MES$) ; USING "HW"; VAL (RS) 3 : RETURN 

22679 PRINT B1B$::6070 22619 

22688 PRINT EFCURS$: VIDNORS;FNLOCS (L,C,MES$);" 

22700 G60SUB 15199:G0SUB 12808: RETURN 

22889 CD(3)=ASC(MIDS (P$,LEN(P$)-1,1))-32:CD (4) =ASC(MIDS (P$, LEN 
(P$),1))-32:CD(1)=CD(3) :CD(2)=CD(4) RETURN 

22918 XB=ASC(MIDS(P$,1,1))-32: YB=ASC(MIDS(P$,2,1))-32: K#AGC (NI 
D$(P$,3,1))-32: YV=ASC(MIDS (PS, 4,1) )-32:R2SGR((XB-X) *2+(VB-V) *2) 
:AD=9: AA 

26,3:RETURN 

23009 XA=ASC(MIDS (P$,1,1))-32: VA=ASC (MIDS (P$, 2,1) )-32: XB=ASC UN 
1D$(P$,3,1)1-32:YB=ASC(MIDS (P$,4,1))-32:X1= (XA+XB) /2:YI= (YA+YB 
)/2:BC=X 

B-XA:AC=YB-YA: AB=S0R (BC2+AC*2) : AI=AB/2: RETURN 

23198 ? 

23119 R=ASC(MIDS(P$,5,1))-32:D=ASC(MIDS(P$,6,1))-32:1F D=3 THE 
N X=XI:Y=VI:ALPHA=PI:60T0 23178 

23128 IO=SGR(INT(R) 2-INT(AI) 2):1F AC=9 THEN ALPHA=ÿ ELSE ALP 
HA=ATN(BC/AC) 

23139 1J=ABS(IO8SIN (ALPHA) ) :0J=ABS(IOHCOS (ALPHA) ):IF [029 THEN 
ALPHA=PI ELSE ALPHA=ABS (ATN(AI/10))42 

23135 IF YA=YB THEN OJ=8:1J=10 

23149 IF SGN(XA-XB))SGN(YA-YB) THEN CX=1:CYai: IF Dzf THEN Cie 
-1:CY=-1 

23158 IF SGN(XA-XB)=SGN(YA-YB) THEN CK=-1:CY=1:1F D=8 THEN Ci= 
1:CY=-1 

23169 K=AI+0J4CK:Y=YI+1J8CY 

23165 IF(D=8 AND KACXB) OR (D=8 AND XA=XB AND VA)YB) OR (D=i À 
ND XA)XB) OR (D=1 AND XA=XB AND YACYB)THEN ALPHA=28PI-ALPHA 
23178 IF D=3 AND KA=X THEN AD=PI/2:1F YA)=YB THEN AD=ADS-1 
23188 IF (D=3 AND XC)XA) OR D<>3 THEN AD=ATN((V-YA)/(X-KA)): IF 
SGN(X-XA)=-1 THEN AD=PI+AD 

23199 AA=AD+ALPHA: RETURN 

38808 DIM INTINZ(64) ,PTSINX (64), INTOUTX (45) ,PTSOUT4(12) :68X4=4 
8 

38919 DATA 89,89,14,115,195,3,8 

39926 RESTORE 39918:FOR N=9 TO 6:READ I:POKE 484N, I:NEXT:RETUR 
N , 

39189 FOR N=1 TO 19:INTINZ(N)=1:NEXT: INTINX (1) =PRM:N=9 

39119 CONTRLZ(1)=1eCONTRLA (2) 28: CONTRLY (4)=18 

39128 GOSUB 15888:RETURN 


"3 tRETURN 





LES PCWISTES ECRIVENT... 


Mr ZIMMERMANN 
ST GRATIEN 95 


Enfin une revue rien que pour notre 
PCW, mais pour la trouver, au moins 
les deux premiers numéros, le par- 
cours du combattant est une plai- 
santerie. Alors je m'abonne, c'est 
plus sûr. 


Quelques mots pour notre revue pré- 
férée, bien, mais peut faire mieux, 
on sait jamais ? Plaisanterie à part, 
c'est bon, c'est même très bon. 
Serait-il possible d’avoir des bancs 
d'essais sur des logiciels pour éviter 
à vos fidèles lecteurs des erreurs, il 
faut reconnaître que certains d'entre 
eux fonctionnent avec beaucoup de 
problèmes. Pas de documentation, 
pour certains, le papier est cher mais 
tout de même. 
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Nous savons à quel périple s’expo- 
sent nos lecteurs quand ils recher- 
chent l'Echo et nous en sommes 
plus que désolés. Notre revue est 
distribuée par les revendeurs du 
PCW et il faut que vous insistiez 
auprès d'eux pour qu'ils se la 
procurent. 


Pour ce qui concerne les problèmes 
avec vos logiciels, vous devriez être 
plus précis car les programmes sont 
nombreux et les difficultés que vous 
rencontrez pour leur utilisation ne 
peuvent être abordées dans l’Echo 
que si les utilisateurs nous en infor- 
ment. Alors, n'hésitez plus à nous 
écrire nous ferons le nécessaire pour 
accéder à vos demandes. 


Mr. MILLEREUX 
TOUR 37200 


Ci-joint, deux chèques en règlement 
de mon abonnement et de mon 
adhésion au club. Je profite de ce 


L'ECHO DU PCW N°6 47 


courrier pour vous demander de bien 
vouloir m'indiquer s’il est possible de 
programmer le PCW en langage 
machine avec les mnémoniques du 
Z-80. 


L'utilitaire SID.COM n'accepte que 
les mnémoniques INTEL 8080 que je 
ne connais pas, n'ayant pu à ce jour 
dénicher l'ouvrage nécessaire. 


Il n'en demeure pas moins qu'il serait 
dommage de ne pouvoir disposer du 
jeu d'instruction du Z-80. Ainsi, j'ai 
pu dénicher qu'il existait une version 
Z-80 de SID.COM en l'occurence 
ZSID. Or, cette Version, comme 
l'indique cet ouvrage n'est pas four- 
nie par AMSTRAD !!1?1! 


J'ignore les raisons de cette situa- 
tion qui semble un peu curieuse et 
j'aimerais pouvoir ÿ pallier. Est-il 
donc possible de se procurer cette 
version spéciale et si oui à qui 
s'adresser ? 
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Encore une des nombreuses ambi- 
guité d'AMSTRAD pour ce qui con- 
cerne le choix des programmes 
CP/M. Il nous paraît évident que 
SID.COM (ex DDT.COM) a été ori- 
ginellement acquis à bon prix pour la 
gamme CPC équipée du CP/M 
2.2. DDT a donc été adapté pour 
CP/M 3.1 et rebaptisé SID. Malheu- 
reusement, ZSID reste introuvable 
en version CP/M 3.1 et notre choix 
s'est porté sur DEVPAC 80 de 
HISOFT. Disponible en version 
anglaise, nous l'utilisons constam- 
ment malgré son manuel anglais. 
Vous pourrez obtenir prix et délai 
de livraison auprès de D.D.I. 
48 67 28 44 


La programmation en 8080 n'est 
pas désagréable non plus et elle offre 
l’indiscutable avantage d'être gra- 
tuite sur PCW. Nous vous recom- 
mandons tout particulièrement 
l'ouvrage CP/M Approfondi des 
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éditions SYBEX qui est notre réfé- 
rence en matière de 8080. 


Cet ouvrage vous apprendra à créer 
des bibliothèques de macro qui, 
ayant le même nom que les mnémo- 
niques Z-80, combleront les lacunes 
de SID. 


Mr CASAS 
RODEZ 12 


L'Echo du PCW c’est super mais j'ai 
du mal à me le procurer, c'est pour 
cela que je m'abonne. J'ai un petit 
problème technique sur le clavier et 
plus précisément avec les crochets 
qui me manquent beaucoup. J'ai 
tout essayé et rien n'y fait... 
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Les crochets n'apparaissent pas à 
l'écran sous leur forme connue. 
Ainsi [ est représenté par ° (obtenu 
par [SHIFT] [)]) et ] l’est par $ (tou- 
che 6). Sous locoscript, ces carac- 
tères s'obtiennent par [ALT] [] et 
[ALT] [*]. Notez que pour les visua- 
liser sous leurs formes réelles vous 
devez passer le jeu de caractères au 
standard américain ou anglais par 
LANGAGE O ou LANGAGE 2 (sous 
CP/M exclusivement). 


Mr OLIVIER TERVUREN 
BELGIQUE 


Félicitations pour votre revue que 
j'attends avec impatience dès que sa 
parution est annoncée. Je vous 
envoie d'ailleurs le questionnaire 
d'évaluation des articles en souhai- 
tant que vous gardiez longtemps 
l'esprit artisanal qui fait le charme de 
cette publication. 
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Merci ! et pour l’artisanal, vous êtes 
tout à fait dans le coup... 


BIS FRANCE 
LE HAVRE 76 


Nous venons de faire connaissance 
avec votre revue qui nous paraît fort 
intéressante pour utiliser au mieux le 
PCW 8256 que nous possédons 
depuis peu. Nous souhaitons éditer, 
disons à 50 exemplaires, une circu- 
laire du même modèle. Nous possé- 
dons du papier listing 12 pouces et 
avons procédé, pensons-nous, à 
tous les réglages nécessaires. 


Cependant l'imprimante s'arrête 
toujours au bas de la feuille, à la 
pliure et nous n’arrivons pas à édi- 
ter en continu. Connaissez-vous 
l'astuce qui pourrait permettre d'édi- 
ter le même document en « X » 


exemplaires sans être tenu de relan- 
cer l'imprimante à chaque fois ? 
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Locoscript ne peut éditer le même 
exemplaire d'un document de façon 
totalement automatique. Par contre 
Tasword en est capable en propo- 
sant à chaque édition la possibilité 
d'entrer le nombre d'exemplaires 
souhaités du même document. 
L'arrêt en fin de page concerne un 
autre aspect de l'utilisation de 
l'imprimante. Cette dernière s'arrête 
systématiquement en fin de page 
quand vous êtes en mode feuille à 
feuille, il faut donc passer en continu 
et par une procédure qui diffère d’un 
programme à l’autre. Sous Locos- 
cript, pressez la touche [PRT] puis 
[F1] pour « option » et mettez le cur- 
seur sur « continu » sans oublier de 
presser [ENTER]. Sous Tasword, le 
menu d'édition vous propose le 
mode continu mais cela reste insuf- 
fisant pour supprimer l'arrêt en fin de 
page. La solution consiste à redéfi- 
nir un code d'impression par le menu 
« redéfinir caractères d'impression » 
en affectant les codes 27 et 99 à un 
code de contrôle dont vous ne vous 
servez jamais. Idem pour Wordstar 
à l’aide du programme INSTALL. 
COM. 





M. VAUDEY 
10 ST JULIEN DES VILLAS 


Son utilisation très fréquente et les 
multiples lectures du guide font que 
je pense maîtriser assez bien Locos- 
cript et ne lui reproche que sa lenteur 
d'exécution pour les textes longs. 


Plus de 6 mois m'ont été nécessai- 
res pour me lancer dans le basic. 
Comme vous le dites, le guide n’est 
pas limpide et ma tâche est ardue. 


Dans ces difficultés, j'apprécie l’aide 
et le secours de l’Echo sur lequel cer- 
tains renseignements semblent 
incorrects. Sur le numéro 1, rubrique 
« programmation basic », je pense 
aux manipulations proposées 
tableau 3 : on débute en A) et en 2/ 
et 3/ l'unité par défaut devient M», 
le signe “‘> ‘’ est représenté par ‘‘:”” 
et enfin, à deux de celles-ci ne 
répond qu'un message d'erreur : 
‘’ERROR:OPEN FILE NONRECOUVE- 
RABLE - B:RPED pour la dernière ; en 
plus, je n'ai pas su comprendre l’uti- 
lisation du lecteur B> dans l’ensem- 
ble de cette procédure. 
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Effectivement, le tableau 3 est truffé 
d'erreur de composition qui ont pu 
troubler votre travail. Pour être plus 
précis voici ce que vous avez lu suivi 
de ce que vous auriez dû lire : 
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M:PIP A:M: =M:*.* est faux 
M:PIP A:=M:*.* est juste 

ET DIR:M': est faux DIR M: est juste. 
Le reste est juste. 


La différence entre ‘‘M:"' et ‘’M) ‘’ 
est simple. Le premier est mis avant 
le nom d'un fichier pour indiquer sur 
quel lecteur il est. Si vous mettez le 
basic sur M et que votre lecteur par 
défaut est À (représenté par À), 
voilà la différence), vous devrez 
taper M:BASIC pour lancer le basic. 


M. VIAL 
LA MULATIERE 69 


J'ai fait connaissance avec votre 
revue la semaine dernière et de plus, 
tout à fait par hasard. Elle m'a agréa- 
blement surpris puisqu'aussitôt je 
vous commandais les autres numé- 
ros disponibles afin d’avoir une idée 
plus précise sur son utilité. Oh sur- 
prise ! la même semaine j'ai reçu 
tous les autres exemplaires et inutile 
de vous faire part de mon emploi du 
temps du week-end dernier. 


Mes problèmes sont nombreux et 
j'espère que vous les aborderez bien- 
tôt. Un exemple : Avec Multiplan, la 
mémoire disponible fond littérale- 
ment dès que les applications pren- 
nent un peu d'’ampleur, est- 
normale ? Comment est-ce possible 
qu'une feuille de calculs vierge uti- 
lise la totalité de la mémoire dispo- 
nible si je place le curseur en L160 
et C40 environ ? Est-ce dû à une 
mauvaise installation du logiciel ? 
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Non, tout est normal, Multiplan sur 
PCW est une vieille relique CP/M 


ressortie pour la circonstance. C’est 
d'autant plus lamentable, que les 
ressources du PCW et particulière- 
ment la gestion des banques mémoi- 
res permettant d'accéder sous huit 
bits à 368 ko de RAM a été totale- 
ment inexploitée. Multiplan PCW 
reste donc très limité et nous en 
sommes tous désolés. 


Mr DE BRUYNE 
MONTEUX 84 


BRAVO !!! 

C'est petit ! C'est joli ! C'est gentil ! 
Et combien enrichissant ! Avec ça 
un peu d'humour et même une 
pointe de publicité pour l'EXBASIC. 
Je dois vous avouer que plein 
d'attention pour ma secrétaire, j'ai 
inséré au début d’un programme de 
gestion de banque qu'elle utilise tous 
les matins, la mélodie : « J'ai du bon 
tabac dans ma tabatière... ». J'ai 
choisi un rythme très entraînant. Le 
son discret ajoute une pointe d'inti- 
mité très apprécié. 


Le résultat a été inespéré. Aussi, 
j'envisage d'étendre le procédé à un 
autre logiciel : Bilan fin de mois. 
Mais cette fois je commencerai par : 
« auprès de ma blonde qu'il fait 
bon. fait bon... fait bon... » 


Merci à David RATHBONE ! 
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Quelle idée excellente. Vous avez su 
associer Musique Machine à la pro- 
ductivité de votre secrétariat et cela 
nous donne très envie de publier un 
strip poker qui traîne dans nos 
tiroirs... Une seule condition, on 
veut assister à la mise en place... 
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La documentation complète ainsi que la liste CES revendeurs agréés D.D.I 
vous seront immédiatement et gracieusement envoyées sur simple appel au : 
(1) 48.67.89.54 (HOT LINE PCW) 


4 
Ou par courrier à :  D.D.I. 
DIVISION PCW 
C.A.P.N. “Le Bonaparte” BP 37 
93153 LE BLANC-MESNIL CEDEX 


